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Section 1 


INTRODUCTION 

This manual contains a description of the Mission Analysis Evaluation and Space 
Trajectory Operations program leaown as MAESTRO* MAESTRO is an all FORTRAN, 
block style, computer program designed to perform various mission control tasks. 

It is intended that this manual serve as a guide to MAESTRO, thereby providing 
individuals the capability of modifying the program to suit their needs. Of most 
importance to this task, this manual contains descriptions of each of the subroutines 
which comprise MAESTRO. These subroutine descriptions consist of input/output 
description, theory, subroutine description and a flow chart where applicable. The 
programmer’s manual also contains a detailed description of the common blocks, a 
subroutine cross reference map and a general description of the program structure. 
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Section 2 


MAESTRO STRUCTURE 


MAESTRO is an all FORTRAN, block style, computer program designed to perform 
various mission control tasks. These tasks include 

1. Retro motor firing time and attitude determination, APROCH, 

2. Midcourse correction determination, PROTO. 

3. Verification of midcourse correction, MCVERF, 

4. Lunar lifetime prediction, FOWARD. 

5. post-injection trim determination, ARMPIT. 

The subroutines responsible for performing the mission control tasks are also shown 
above. All of these subroutines are essentially self-contained except for PROTO which 
controls the midcourse determination. The logic involved in this task is more complex 
than the others, therefore, it will be discussed in detail later in this section. 

All of the mission analysis tasks require a means of propagating the state forward in 
time. Subroutine FOWARD and its related subroutines accomplish this task. The 
subroutines that make up subroutine FOWARD comprise the major portion of MAESTRO. 
The second subsection describes the structure of FOWARD. 

2.1 Main Control Logic 

MAESTRO computation is initialized in the MAIN program. Figure 2. 1. 1 presents 
a flow chart of this routine. 

The first task of the MAIN program is to clear some common blocks and call subroutine 
INPUTF. Subroutine INPUTF reads the input data cards and establishes INPUT and 
FIELDM common blocks. MAIN calls subroutine CONTRL to initialize common blocks. 
Most of the initialization is actually accomplished in subroutine SETUP2. After the 
initialization process is complete, MAIN calls one of the mission analysis subroutines 
to perform the desired analysis. The MODE flag of input common is used to key 


2 



the proper subroutine. The logic flow is returned to the input of data to initiate a 
second case after the analysis is complete. 

2,2 Trajectory Propagation, FOWAPD 

A call to subroutine TOWARD will propagate the state forward in time. The state will 
be propagated by numerical integration or by the multiconic algorithm. Subroutine 
MULCON is used when the . multiconic algorithm is employed to propagate the state. 
Subroutines TIMEC, INTEG, EQNS, and ACCEL are employed for numerical integration. 

Figure 2.1.1 presents a flow chart of the basic control logic involved in trajectory 
propagation. The initial state is brought into the subroutines via STATE common. 

The METH flag in INPUT common is used to determine the trajectory propagation 
scheme. If the multi-c’onic technique is desired, subroutine MULCON is called and 
the state propagated forward in that routine. If one of the numerical intregration schemes 
is requested, subroutine FOWARD calls subroutine TIMEC to initiate the numerical 
integration. As seen from Figure 2.1.1, the numerical integration logic consists of 
looping through subroutines TIMEC, INTEG and RKSEVN or TWELVE. Each loop 
through the subroutines numerically integrates the state one compute interval. The 
size of the compute interval is determined in TIMEC. Thus, when flow returns to 
TIMEC at the end of a loop, the state in STATE common corresponds to the space- 
craft's state at the end of the time step. 

Subroutine INTEG is used to establish the integration array before integration and 
determine the position and velocity vectors after the step is complete. An intermediate 
array is used in the numerical integration subroutines RKSEVN and TWELVE. This 
array is necessary because a variety of variables can be integrated. The trajectory 
propagation flag, METH, determines which set of variables are transferred from 
STATE common to the integration array in INTVAR common. After integration is 
complete, the variables at the end of the state are transferred back into STATE 
common. The position and velocity vectors are also determined because they are 
needed for use in other auxiliary calculations after integration. The integration array 
separates the numerical integration logic from the trajectory propagation logic. Thus, 
new numerical integration or trajectory propagation techniques can be easily added 
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without affecting logic in the other segment. Integration of other quantities can also 
easily be included. For example, the equations which describe the state transition 
matrix can be included in the numerical integration without any changes to the 
numerical integration subroutines. 

The actual integration that is carried out is a loop comprised of subroutines . EQNS, 

ACCEL and RKSEVN or TWELVE. Subroutines RKSEVN and TWELVE are single 
and multi-step numerical integration schemes. The derivatives of the quantities to 
be integrated are determined in subroutines ACCEL and EQNS. EQNS contains logic 
to determine the derivatives according to the trajectory propagation scheme employed. 

The derivatives are transferred to the numerical integration routines via RATES of 
INTVAR common. 

There are many other subroutines besides the ones mentioned which are involved 
in propagating the state forward in time. These routines are used in the determination 
of shadow times, closest approach times, trajectory output and interpolation. Most 
of the calls to perform these auxiliary calculations are made from subroutine TIMEC. 

2.3 Midcourse Guidance Structure 

The objective of the midcourse guidance package is to determine the velocity correction 
which nulls a constraint vector at the target planet. The velocity correction is determined 
through a generalized Newton-Raphson technique. The partial derivatives of the constraints 
with respect to the velocity correction are determined by finite differences. 

The midcourse guidance calculations are initiated in subroutine PROTO, (see Figure 2.3.1). 
PROTO 's functions are to initialize constants, increment execution times, write the 
midcourse tape and output displays. 

The Newton-Raphson logic to determine the correction is contained in a loop inside 
subroutine MDCORS. This loop uses subroutines SENSO, MCBURN and TARGET to 
perform many of the midcourse calculations alor^ with subroutine JET to pre-target. 
Subroutine JET uses a variety of conic techniques to determine an initial value of the 
correction velocity. This velocity is used as the initial guess in the Newton-Raphson 



iteration process. The iteration process consists of the following steps in MDCORS: 


1. The constraint vector is determined at the target planet. Subroutines 
SENSO, MCBURN and TARGET are required. SENSO sets up the logic 
to propagate the state to the target planet and calls MCBURN to apply 
the current correction. SENSO next calls FOWARD to obtain the state 
at the target planet and then TARGET to convert the state to the con- 
straint vector. 

2. Tests are made on the constraint vector to determine if each component 
is within tolerances. If the vector is within the desired tolerances, 

the solution is converged and flow transferred back to subroutine PROTO. 

3. The secant matrix is determined if the solution is outside the bounds. 

The secant matrix is determined by incrementing each of the control 
variables independently. The constraint vector is found for each control 
variable in the same manner as described in step 1. 

4. The velocity correction is found by inverting the secant matrix and 
multiplying by the difference of the current constraint vector from the 
desired constraint vector. 

5. Flow is transferred to step 1. 

After the midcourse correction is determined, subroutine PROTO calls POST to 
obtain auxiliary output quantitie s . These quantities along with the correction and the 
pre-midco\irse state are written on an output device. If more midcourse execution 
times are to be analyzed, flow is transferred back to the call to MDCORS to evaluate 
the next correction. After the last correction is determined, the midcourse tape is 
read and the appropriate displays output. 

There are subroutines involved in the midcourse calculation other than those already 
discussed. Most of these are used to perform calculations necessary in JET, TARGET, 
MCBURN and POST, A complete description of all the subroutines is presented 
in Section 5, 


5 




6 













SUBROUTINE FOWARD 


ENTER 


FIGURE 2.2.1 


FOWARD 


Propagate State 
with Multiconic 


Multiconic 

Used 



Determine Compute Interval 


T>T 

Final 



TIME C 


RETURN 


III. iiiL ' ll» ■■ > J.J ' JVU JLM 

C5ig2»rg5y>A'Ha/iip? 

EQNS 

Determine Derivatives According to | 

Simulation Technique 


1. Cowell 

2. Encke 

3. NTCE/True 

4. NICE/Mean 

5. Averaged Equations of 4 

7. NICE/e sinw, etc. 

8. Averaged equations of 7 



ACCEL 


Calculate Perturbing 
Acceleration- 








Figure 2.3.1 
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Section 3 


CROSS REFERENCE MAP 


3 . 0 Introduc tion 

The MAESTRO system is comprised of more than 90 subroutines. It is difficult to 
understand the structure of a program of this complexity without some sort of a 
visual guide. The maps on the following pages are designed to meet this need. These 
maps present a hierarchy of subroutine calls for each division of the program. 

The program is divided into three sections for clarification. The first section consists 
of the prime control logic. The second division presents the midcourse logic, while 
the third section consists of the hierarchy of subroutine FOWARD, 

3.1 Primary Control Logic 

The primary control logic consists of those subroutines required for input, initialization 
and selecting the analysis modes of MAESTRO. The cross reference map of the primary 
control logic is shown in Table 3.1, 

3.2 Midcourse Logic 

The midcourse guidance section comprises a substantial portion of MAESTRO. The 
midcourse logic can be entered directly from the MAIN program by a call to PROTO or 
from subroutine MONTE via calls to MDCORS, SENSO and MCBURN. A cross reference 
map of the subroutines involved in the midcourse logic is presented in Table 3,2, 

3.3 Subroutine FOWARD Logic 

Subroutine FOWARD ’s sole aim is to propagate the state forward in time. This subroutine 
comprises the major portion of MAESTRO and is called from many other subroutines. 
Table 3.3 presents a cross reference map of the subroutines involved in this portion of 
the logic. 
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TABLE 3,1 


MAIN CONTROL LOGIC CROSS REFERENCE MAP 


■ APROCH 


TRIM, M50MDT, QUIKIE, VIEW 
TRMN, CROSS, MVTRN, PUTELS 
ORBIT, VNORM, TOWARD, NUTATE 


MAIN 


FOWARD — ^ — See Table 3.3 


--MONTE 


■ARMPIT 


-MCVERF 


COVERT 


CROSS 

.VNORM 


RETRO- 

M50LEQ> 


MINV 

— NUTATE 


MDCORS, MCBURN, SENSO 

VNORM,' CALEND, CROSS, FOWARD 
PUTELS, FOWARD 


M50EPM- 

M50LEQ- 

PLANET- 


PROTO 


M50MDT 
NUTAIT 
[NUTATE 
’LUNA 
READE 
SOL 

CROSS, FOWARD,' PUTELS, 
VNORM, CALEND 

See Table 3.2 


See Table 3.2 

TWOPIT - TRIM2 

TRIM - ROTATE 
L ORBIT 
TRMN 
PUTELS 


p ORBIT 

Lmvtrn 


-MCSET 


CONTRL 
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PRINT 


SETUP2 


FIND, MVTRN, ORBIT, NUTATE, M50MDT 
NUTAIT, DVMAG, TRMN, DATE, OBLTY 

PLANET SOL, LUNA, READE 

(TRMN, INTEG, UPDATE 
"LDVMAG, ORBIT 
M50EPM - M50MDT, NUTAIT 
^50JPM - M50LEQ, M50MDT, M50EPM 


CLOSE' 



Table 3.2 

MIDCOURSE GUIDANCE CROSS REFERENCE MAP 


I — VISIB 


— POST 


DOT, MVTRN, DVMAG 
M50EPM >M50MDT, NUTAIT 


[tRMN, MVTRN, VNORM, ORBIT, VISIB 


RETRO — MINV- 


DOT, CROSS, ORBIT, VNORM 
ORIENT, TRIM, DVMAG 


■FOWARD 


— MDCORS 


PROTO 


See Table 3. 3 


DOT, SPER, MVTRN, MINTF, VNORM 
FOWARD, CROSS, RETDV 

fcROSS, DOT, MVTRN, VNORM, ORIENT 
[RETDV, ROTAIT, TRMN, DVMAG 


SENSO 


FOWARD 

TARGET' 


CROSS, MVTRN, RETDV, VNORM, DVMAG 
ORBIT, RETRO, ROTAIT, M50LEQ 


[ORIENT, CROSS, DOT, VNORM 

MCBURN DOT, DVMAG, FOWARD, BURND 

—M50LEQ M50MDT, NUTAIT 

— FIXATG SENSO, FOWARD, VNORM 


h~MVTRN 


CROSS 


•—DOT 



Table 3.3 


SUBROUTINE FOWARD CROSS REFERENCE MAP 


I — PLANET 


— OUTPUT 


LUNA 
■ READE 
SOL 

FtRMN, MVTRN, orbit, M50MDT, DVMAG 

M50JPM, NUTATE, OBLTY, 

SHORB2 QUARTC, ROTATE 


-MULCON 


DVMAG, OUTPUT, TOBODY 
AVERGE, ORBIT, PLANET 

OBLATE TRMN, ORBIT, DVMAG 


— INTEG 


FOWARDH 


N> 


— ^TIMEC 


ORBIT 
' RKSEVN 

TWELVE 


[EQNS 


EQNS 

EQNS, RKSEVN, DVMAG 

GRAV, SOLP, PLANET, DVMAG, DRAG-ATMO 

- FIELD2 — M50JPM, ROTATE 

MOTORS — TABINT 

OBLE M50MDT, ROTATE, NUTATE 

ORBIT, DVMAG, TRMN 

AVEQNS ACCEL, ROTATE, ORBIT, TRMN 


INTEG, UPDATE, PRINT, MOTORS, TRMN, ORBIT, OUTPUT 
SADOUT — CALEND 

CLOSE UPDATE, INTEG, TRMN, ORBIT, DVMAG 

DOPLER — ROTATE, DVMAG, M50EPM 
'SHADOW DVMAG, PLANET, DOT, INTERP 

[planet, OUTPUT 
OUTl * 

INTERP TRMN, ORBIT 

L>* 

CRASH ^INTERP, DOT, PLANET, DVMAG 


PRINT, TRMN, ORBIT, DOT 



SECTION 4 


COMMON BLOCKS 


Currently, there are 25 common blocks established in MAESTBO- Most of these 
common blocks are required for the numerical integration portion of MAESTRO. 
The table below presents a list of the current common blocks: 


Used in Numerical 
Integration 

Used in Ephemeris 
Calculation 

Used in Auxiliary 
Calculations 

AVG 

CETBL2 

ANKOR 

CNTRL 

CETBL3 

ELMNT 

CONST 

CETBL9 

INPUTS 

DUM 

MOON 

INTER 

FIELDM 


MCCOM 

GRAVTY 


OBSIT 

INPUT 


PIT 

INTVAR 


SHAD 

INTVRX 



, PERT 



PLNET 



SAVE 



STATE 




The following pages in this section present a description of each of the above common 
blocks. The descriptions include the usage of the common block, its length, the sub- 
routines which required the common block, and a description of each of the elements 
that comprise the common block. 
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COMMON ANKOR 


Description: This common block contains the current anchor vector 

Length: 6 8 -byte words 

Subroutines Using: CONTRL MONTE PROTO SETUP2 


Location 

Symbolic 

Name 

Description 

1 

ANKUE(6) 

Cartesian position and velocity vectors of the 
current anchor vector in Earth mean equator 
and equinox of 1950, km and km/sec. 
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COMMON AVG 


Description: This common block contains the weights and the 

corresponding abscissa for the Gaussian quad- 
rature formulae. 

Length: 156 8-byte words 

Subroutines Using: AVEQNS, BLOCK DATA, MAIN 


■■ : , . _ - n 

LOCATION 

SYIMBOLIC NAME 

DESCRIPTION 

1 

WEIGHT (78) 

Weights for Gaussian quadra- 
ture formulae* 

79 

ABSCIS (78) 

Abscissa for Gaussian 
quadrature formulae* 


*See Scarborough, James B, Numerical Mathematical Analysis, The Johns 
Hopkins Press, 1930, 
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COMMON CETBL2 


Description: 

Length: 

Subroutines Using: 

Location 

1 

2 


This common block contains arrays that determine 
which planets are desired in the disk or tape ephemeris 
call using subroutine READE 

15 4-byte integer words 

MAIN GETTAP PLANET READE 
SETUP2 


Symbolic 

Name Description 


ICW 


Flag indicating the status of the common 
block CETBL3 


ICENTR Central planet number defined as 


1 

Mercury 


4 Mars 

7 

Uranus 

2 

Venus 


5 Jupiter 

8 

Neptune 

3 

Earth 


6 Saturn 

9 

Pluto 



10 

Sun 





11 

Moon 





12 

Oddball 




IREQ(13) 


Array used to determine which planets the 
ephemeris is desired. The planets 'correspond 
to the index of the array as described in ICENTR, 
The value of IREQ is determined from: 


IREQ(J) = 0 
= 1 

= 2 


no ephemeris 
position only 
position and velocity 
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COMMON CETBL3 


Description: 

Length: 

Subroutines Using: 

Location 

1 

830 

1034 


This common block is used to transfer information read 
from the ephemeris tape to subroutines GETTAP and 
READE. 

829 8 -byte words followed by 
205 real 4-byte words 


MAIN GETTAP PLANET READS 
SETUP2 

Symbolic 

Name Description 

TAB3(829) Array of raw data obtained from the JPL ephemeris 

tape. Data contains 8 days of information. 


NUT(204) 


Array of 4-byte real words describing the nutation 
data obtained from the JPL ephemeris tape. 


CKSUM 


A 4-byte word used for checksum. 
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COMMON CETBL9 


Description: 

Length: 

Subroutines Using: 

Location 

1 

2 

3 

4 


This common block contains quantities required in 
the tape or disk ephemeris calculations, 

3 8-byte words followed by 
1 4-byte integer word 

GETTAP READE 


S 5 nnbolic 

Name 

Description 

JDl 

Reference Julian date of ephemeris call. 

TDAY . 

Time since reference Julian date ephemeris 
is desired, days. 

JDIF 

Difference in the time of the desired ephemeris 
minus the time of the ephemeris data read from 
the tape or disk. 

lERRl 

Error return flag from subroutine GETTAP 
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COMMON CNTRL 


Description: CNTRL common is used to store flags that control 

state propagation. 

Length: 28 4-byte integer words 


Subroutines Using: MAIN 

AVSTRT 

DOPLER 

FIXATG 

INTEG 

MCVERF 

MULCON 

PRINT 

SHADOW 

TRIM2 

Symbolic 

Location Name 


ACCEL 

APROCH 

AVEQNS 

BELL 

CLOSE 

CRASH 

DRAG 

EQNS 

FIELD2 

TOWARD 

GETTAP 

GRAY 

INTERP 

LUNA 

MCBURN 

MDCORS 

MONTE 

MOTORS 

OBLE 

OUTPUT 

PLANET 

PROTO 

RKSEVN 

SETUP2 

SOL 

TARGET 

TIMEC 

TWELVE 



Description 




1 


Not used 


2 KTHRST Thrusting flag. Set to 1 when an engine is thrusting. 

3-4 - Not used 


5 

6 

7 

8 

9 

10 
11 


KDIS 

KHALT 

JC 

KREAD 

KNT 

KDOPWT 

KCA 


Discontinuity flag. Flag equals 1 when the current 
time is a discontinuity time, otherwise set to 0, 

Error return flag. Flag is set to 1 to cause an error 
return from the numerical integration. 

Central planet number. 

Flag used to determine if the ephemeris tape or 
disk is to be read at the current time. 

Counter that contains the number of calls to the 
derivative subroutine, EQNS. 

Doppler write flag. Flag equals zero on the first call 
to DOPLER, On subsequent calls this flag is set to 1. 

Counter used in the closest approach iteration between 
subroutines CRASH and TIMEC. KCA equals the 
number of iterations. 
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Location 

Symbolic 

Name 

Description 

12 

KFIRST 

First pass flag. Flag equals one on the first step 
of a numerical integration 

13 

lEVG 

Engine number of engine thrusting 

14-28 


Not used 
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COMMON CONST 


Description: 

This common block contains physical constants 



and unit conversion factors 



Length: 

50 8 -byte 

words 



Subroutines Using: 

MAIN 

APROCH 

ARMPIT 

A V EQNS 

A VERGE 

AVSTRT 

BLOCK DATA 

BURND 


CLOSE 

CONTRL 

DOPLER 

DRAG 


EQNS 

FIELD2 

FIXATG 

FOWARD 


GRAY 

INTEG 

INTERP 

JET 


LUNA 

MCBURN 

MCSET 

MCVERF 


MDCORS 

MINV 

MONTE 

MULCON 


M50EPM 

M50JPM 

OBLATE 

OBLE 


OBLTY 

ORBIT 

OUTPUT 

POST 


PRINT 

PROTO 

QUIKIE 

RETDV 


SETUP2 

SHADOW 

SOL 

SOLP 


SPER 

SUNMIN 

TARGET 

TIMEC 


TOBODY 

TRIM 

TRIM2 

TRMN 


TWELVE 

TWOPIT 

VISIB 




SYMBOLIC 


LOCATION 

NAME 

DESCRIPTION 

1 

RAD 

Radian to degree conversion factor 

2 

PI 

Pi, IT 

3 

PI2 

Twice pi 

4 

Au 

Number of kilometers in an astronomical unit 

5 

GM(12) 

Gravitational coefficients of the planets, km^/sec^. 
The planets are ordered in the array as follows, 



1. Mercury 4, Mars 7, Uranus 10, Sun 

2. Venus 5, Jupiter 8. Neptune 11, Moon 

3. Earth 6. Saturn 9, Pluto 12. Oddball 

17 

RE(12) 

Equatorial radii of the planets, km. The order is the 
same as the gravitational coefficients. 

29 

WP(12) 

Rotation rates of the planets, rad/sec. The order is 
the same as the gravitational coefficients. 

41 

XHS 

Hour to second conversion factor 

42 

TSH 

Second to hour conversion factor 

43 

TDS 

Day to second conversion factor 

44 

TSD 

Second to day conversion factor 

45 

G 

Gravitation acceleration at the surface of the 
Earth, km/sec^ 



COMMON DUM 


Description: 

Length: 

Subroutines Using; 


Location 

1 

4 

7 

8 

9 

10 
11 

12 


Symbolic 

Name 

A1S(3) 

A2S(3) 

PM 

AM 

DT 

AMO 


This common block contains quantities used to propagate 
the state using the multi^conic scheme. 

12 8-byte words 

AVERGE MULCON OBLATE TOBODY 
Description 

Acceleration due to the Moon's indirect term, kms/sec^ 
Acceleration due to the Sun, km/sec^ 

Spacecraft's mean motion, rad /sec 
Not used 

Value of mean anomaly at end of a compute step, rad 

Current multi-conic compute step, sec. 

Value of the mean anomaly at the beginning of 
the step, rad. 

Not used. 
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COMMON ELMNT 


Description: This common block is used to transfer input data 

read from the 24-hour hold file^ It is also used for 
writing data for GTDS retrieval. 

Length: 40 8 -byte words followed by 

8 4-byte integer words. 

Subroutines Using: APROCH FIND MCVERF PUTELS 

SETUP2 


Location 

Symbolic 

Name 

Description 

1 

DATE 

Epoch date in year, month and day 
written as YYMMDD. 

2 

TIME 

Epoch GMT time in hours, minutes and seconds 
written as HHMMSS, SSS, 

3 

X(3) 

Position vector, km. 

6 

DX(3) 

Velocity vector, km/sec. 

9 

ELM(6) 

Orbital elements 

15 

COV(21) 

Covariance matrix of the state. Upper triangle 
presented. 

36-40 

- 

Not used. 

41 

ID 

Satellite identification number. 

42 

ICOR 

Coordinate system of state. 

1 = Earth mean equator and equinox of 1950. 

43 

ICENT 

Central body indicator. 



1 = Earth 

2 = Moon 

44 

ISET 

Element set number of desired data. 

45-48 

_ 

Not used 
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COMMON FIELDM 


Description: 

Length: 

Subroutines 

Location 

1 

17 

513 

522 

523 


This common block contains constants that describe 


UlO gA «a.V AtO-LiUllCLl. AlCXVJ. \ji. « pxctll.^l/1 


297 8-byte words followed by 
2 4-byte integer words. 

Using: MAIN FIELD2 INPUTF OBSET 


Symbolic 

Name 


ZONL(16) 
TSRL(16,17) • 


SELNEQ(9) 


NMOD 

MMOD 


Description 

Zonal coefficients of the spherical harmonic potential 
term. ZONL(i) = " C.^ i = 1, 16 

Tesseral coefficients of the spherical harmonic 
potential term, 

TSRL(i,j)=C„ i = l,16 0<j^i 

TSRL (j,i+l) = S.. i = l,16 0<j^i 

Rotation matrix from the Earth mean equator and 
equinox of 1950 to true equator and prime meridian 
of the planet for which the gravitational field is to 
be evaluated. 

Maximum number of zonals used to define the 
gravity field. 

Maximum number of tes serais used to define 
the gravity field. 
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COMMON GRAVTY 


Description: 

Length: 

Subroutines Using: 

Location 

1 

4 


This common block contains vectors used in the 
determination of the disturbing acceleration when 
numerically integrating 

6 8-byte words 

ACCEL AVEQNS DRAG EQNS 

FIELD2 GRAY OBLE SOLP 


Symbolic 

Name 


Description 


POS(3) • 
VEL(3) 


Position vector with respect to central planet in 
Earth mean equator and equinox of 1950, km 

Velocity vector in same system, km/sec 
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COMMON INPUT 


D©scription.* This conimon. block con.t3.iris th© d3t3 input to ^^AESTRO, 

Length: 1000 8-byte real words followed by 

100 4-byte integer words 


Subroutines Using: 

MAIN 

ACCEL 

APROCH 

ARMPIT 


AVEQNS 

AVSTRT 

BELL 

BLOCK DATA 


BURND 

CAL END 

CLOSE 

CONTRL 


CRASH 

DOPLER 

DRAG 

EQNS 


FIELD2 

FIXATG 

FOWARD 

GRAY 


INPUTF 

INTEG 

INTERP 

JET 


LUNA 

MCBURN 

MCSET 

MCVERF 


MDCORS 

MINV 

MONTE 

MOTORS 


MULCON 

OBLATE 

OBLTY 

OUTPUT 


OUTl 

PLANET 

POST 

PRINT 


PROTO 

RETDV 

RETRO 

RKSEVN 


SADOUT 

SENSO 

SETUP2 

SHADOW 


SOL 

SOLP 

TABINT 

TARGET 


TIMEC 

TRIM 

TRIM2 

TWELVE 


TWOPIT 

UPDATE 

VISIB 
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MAESTRO INPUT ARRAY* 


FORTRAN PRESET 

LOCATION SYMBOL USE*** VALUE DESCRIPTION 


1 ERRC I 

2 DELTO I 

3 DELMN , I 

4 TF I ** 

5 PCON I 1.0 

6 VCON I 1.0 

7 EMPTY 

8 TOL I 0.0 

9 EMPTY 


Error control for automatic integration 
step size. If = 0 assume in fixed-step 
mode. 

Initial computer step when in automatic 
mode. Note: Need not be input when 
fixed- step. 

Minimum compute interval. Note: Not 
necessary in fixed-step mode. 

Run stop -time. 

Unit conversion factor for positions. The 
value is determined such that, when PCON 
multiplies the input units, they will be 
converted to KMS. The output units will 
be scaled by 1/PCON so that the output 
units will be the same units as input. 

Used the same as PCON except that 
velocities are scaled to KjVI/SEC. 

Corrector convergence tolerance in 
twelfth-order predictor-corrector 
integration scheme. Values used depend 
on the accuracy requirements. They 
range from 10“^ to 10”^^. 


* unless otherwise stated, the units of the input quantities are: KM, SEC, KG, degrees 

** preset value depends on program operating mode 

*** I integration V Midcourse verification 

A approach analysis L Lifetime analysis 

M midcourse analysis P Post-injection trim 
C Monte Carlo analysis 
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FORTRAN 

SYMBOL 


USE 


PRESET 

VALUE 


DESCRIPTION 


10-12 

•iMil.TH(3) 

1 


13-19 

EMPTY 



20 

XMONLl 



21 

DAYL 1 



22 

YRL ( 

T 


23 

HRL 1 

i 


24 

XMINL 1 



25 

SECL * 



26-29 

EMPTY 



30 ' 




31 




32 

33 

► ELM(6) 

I 

- 

34 ' 

* 



35 - 




36 

EMPTY 



37 

DJL 



38 

WTO 

I 

331.40 


39 

ETC 

I 


40 

41 

42 

X(3) 

I 

- 

43 

44 

45 

DX(3) 

I 

- 

46 

DJO 



47 ’ 

RA 

I 

- 

48 

DEC 

I 



limes for method Uiule. See KMETK 
(location 1036) for description. 


Lavinch epoch • 


Input initial conditions as orbital 
elements. The order is a,e,f,oj, i, Q. 

The initial conditions may be accepted 
as position and velocity vectors (see 
locations 40-45). The coordinate system 
is defined in KINPT (location 1019). 

Modified julian launch date. Not a program 
input. 

Initial weight 

Ephemeris time correction. If no input, 
the ephemeris time correction will be 
calculated from ETC = 38.66 + .0025921DJ 
where DJ is the number of days since 
the julian date of 2440000.0. 

Initial conditions as position and velocity 
vectors or spherical coordinates. When 
spherical coordinates are used the order 
is velocity, flight path elevation angle, 
flight path azimuth angle, radius, geocentric 
latitude, geocentric longitude. The input 
coordinate system is defined by KINPT ■ 
(location 1019) 

Modified julian launch date. Not a 
program input. 

Initial right ascension and declination 
in Earth equator and equinox of 1950 
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FORTRAN 


PRESET 


location 

STOBOL 

USE 

VALUE 

DESCRIPTION 

50 

XMONO 




51 

DAYO 



Initial time 

52 

YRO 



Input is month, day and year, 

53 

HRO 

I 

— 

54 

MINO 



hour, min, second (GMT). 

55 

SECO 



Upper right-hand triangle of the 
tracMng covariance matrix loaded across 
the rows. Can be input in mean equator 
and equinox of 1950 or in a local tangent 

56-76 

COV 

C 


plane. Location 1085 determines the system. 
When mean of 1950 is used^the order is 
X, Y, Z,X, Y, Z. When local tangent plane is 
input,the order is the position components as 
R, (KxV) X R, RxV and then the velocity 
components along the same axes. 

77-99 

EMPTY 




100-111 

GM(12) 

I 


Gravitational coefficient. The order of the 
planets is defined in locations 1001-1012. 

112-123 

RE(12) 

I 


Planetary radii. 

124-135 

WP(12) 

I 


Planetary rotation rates 

136-169 

EMPTY 



Compute interval table when in fixed compute 
interval mode, (loc (1) =0.). 

170-179 

TCOMP(IO) 

I 


Compute interval = DELT (I) 

180-189 

DELT(IO) 

I 

** 

when TCOMP (I-l) < T < TCOMP(I) or 
Compute interval = DELT (1) 
when T<TCOMP(l). Complete compute 
interval table must be loaded when 
alterations are made to preset values. 



190-192 

XM(^0N(3) 

I 

- 

Initial position of Moon if osculating 
elements are used for Moon's position; 

193-195 

DXM(2^C^N(3) 

I 

- 

Earth radii and Earth radii/mean solar day. 

196 

TMM 

I 

- 

Moon's epoch in modified Julian date. 

197 

SPRESS 

I 

4,7(10)"® 

. 2 

Solai' pressure at 1 AU, dynes/cm 


. *** See Table 3.3 of User*s Manual 
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FORTRAN 
LOCATION SYMBOL 


USE 


PRESET 

VALUE 


DESCRIPTION 


198 

REFLK 

I 

0.2 

199 

EMPTY 



200-219 

TF1(20) 

I,A,M,V 


260-279 

Fl(20) 

I,A,M,V 


220-239 

TF2(20) 

I 


280-299 

F2(20) 

I 

• - 

240-259 

TF3(20) 

I 

- 

300-319 

F3(20) 

I 

— 

320-323 

TWDOTl(lO) I,A,M,V 


350-359 

% 

WDOTl(lO) 

I,A,M,V 


330-339 

TWDOT2(10) 

I 

' _ 

360-369 

WDOT2(10) 

I 

- 

340-349 

TWDOT3(10) 

I 

- 

370-379 

\VDOT3(10) 

I 

- 

3 80-382 

TIG(3) 

i,v 

- 

383-385 

386-399 

. TB0(3) 
EMPTY 

I,v 

- 

400 

TFIREl 

A 

- 

401 

TFIRE2 

A 

- 

402 

DTFIRE 

A 

- 

403 

RAO 

A 

- 

404 

DECO 

A 

- 


Solar pressure reflectivity coefficient 

Tabular thrust history of Motor 1. 
TF1(20) are times since ignition and 
Fl(20) are the thrust values (newtons) 
at the corresponding ’times. For the 
RAE-B application, this motor is used 
as the midcourse motor. 


Thrust table for motor 2. 


Thrust table for motor 3 . 


Tabular weight flow rate for motor 1. 
TWDOTl is the time past ignition and 
WDOT is the flow rate at the corres- 
ponding time. The flow rate is in 
KG/sec. 


Flow rate table for motor 2 . 


Flow rate table for motor 3. 


Ignition times for motors 1, 2 and 3. 

Burnout times for motors 1, 2 and 3. 

First and last trial retro firing time on 
an approach analysis. Time reference 
to liftoff epoch. Used when KAPOPT = 3 

(location 1055) 

Increment in retro firing time , 

Initial right ascension and declination 
used in the attitude sweep in the approach 
analysis. If both zero, velocity vector 
at closest approach Is used. 


*** See Table 3. 3 
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FORTRAN 


PRESET 



location 

SYINIBOL 

USE 

VALUE 

DESCRIPTION 


405 

DELRA 

• A 


Increment in right ascension and 

406 

DELDEC 

A 


declination in attitude sweep, 


A 


Used when KAPOPT = 2 or 3 


407 

EMPTY 





408 

CARl 

V 

4. 0095D8 

Telemetry carrier frequency No. 1 

409 

CAR2 

V 

4.0D8 

Telemetry carrier frequency No. 2 

410-419 

OBSLON(IO) 

A,M,V 


Observation site geocentric longitude 
for sites 1-10. 

420 

PSID(l) 

M 

2838. 

Lunar radius 


421 

PSID(2) 

M 

116.5 

inclination w.r.t. target 
planet equator. 

Midcourse 

422 

PSID(3) 

M 

.396D6 

time of flight w.r.t, 
liftoff 

, analysis 
■ desired end 

423 

PSID(4) 

M 

0,62 

Hyperbolic excess speed 

conditions 

424 

PSID{5) 

M 

0.0 

circular excess speed 


425-429 

PSID(6-10) 

M 


Empty 






Impulsive velocity of engines 1 to 3. 

430-432 

DV(3) 

I 

- 

Used when KFM<2iN (location 1047) is set 
to 2. Velocities are added at ignition 





times in location (380-382). 






Area of the spacecraft used in solar 

433 

SOLARA 

I 

13560 

pressure calculation, square centimeters 

434 

DELTMC 

M 

7200. 

Increment in execution time 


435 

SIGATM 

C,M 

0.7 

One sigma pointing error during 





midcourse maneuver. 


436 

SIGDVM 

C,M 

0.02 

One sigma percentage error of 
midcourse velocity. Loaded as percent/100 

437 

SIGATR 

C 

0.7 

One sigma pointing error during retro. 
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FORTRAN 


PRESET 



LOCATION 

STMBOL 

USE 

VALUE 

DESCRIPTION 

438 

SIGDVR 

C 

0.0003 

One sigma percentage error of 
retro velocity. Loaded as percent/100. 

439 

TMCl 

C 

36000. 

Time of first correction 

440 

TMC2 

C 

324000. 

Time of second correction 

441 

ASPMC 

A,M,C 

226.0 

Midcourse motor specific impulse 

442 

ASPR 

A,M,C 

282.5 

Retro motor specific impulse 

443 

WRETRO 

A,M,C 

71.44 

^la ss of retro fuel 

444 

RO 

A,M,C,P 

2838. 

Desired lunar orbit radius used in trim 


- 



maneuver 


445 

VC 

A,M,C,P 


Circular velocity at RO. Program 



calculation, not to be input. 

446 

CIO 

A.M,C,P 

116.5 

Desired lunar orbit inclination w.r. t. 
lunar equator used in trim maneuver 

447 

BVD(l) 

M 

6000. 

Desired B • T 

: Midcourse analysis 

desired end condition 

448 

BVD(2) 

M 

6000. 

Desired B • R 

Used when IBTR flag 
' set to 1. (loc 1062) 





Tolerance band on inclination correction 

449 

TRINC 

M,C,P 

0. 

during post-injection trim. If inclination 


change is less than TRINC, no inclination 
adjustment is made. 




450-459 

TOUT(IO) 

I 

TOUT(l)- 

Print table 

- 



1.D20 

Print interval 

= DTOUT(l) when 

460-469 

DTOUT(IO) 

1 I 

DTOUT(l)= 

TOUT(I-l) < T <TOUT(I) or print 




18000. 

interval = DTOUT(l) when T < TOUT(l) 

470 

ATFULA 

C 

6.0 

Available attitude control fuel and constant 
to determine attitude control fuel, KG/RAD. 

471 

AFUEL 

C 

0.1678 

Attitude fuel used = AFUEL * attitude 





angle change. 


472 

FT0T 

C 

20.4 

Total midcourse fuel available 
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FORTRAN 
LOCATION SYMBOL 


USE 


PRESET 

VALUE 


DESCRIPTION 


473 

WDROP 

A,M,C 

13.77 

474 

CONE 

A, M 

5.0 


475 

TRUE 

A,M C 

20 

476 

BURNT 

V 


477 = 

EMPTY 



478 

TMC 

M 

7200, 

479 

Dime 

M 

0.0003 

480-489 

OBSLAT(IO) A,M,V 



490 

T(^L(1) 

M 

10, 

491 

T^L(2) 

M 

10, 

492 

T9L(3) 

M 

10. 

493 

T0L(4) 

M 

.0001 

494 

T0L(5) 

M 

.0001 

495 

T0L(6) 

M 

.02 

496 

T0L(7) 

M 

5. 

497 

T0L(8) 

M . 

.2 

498-499 

T0L{9, 10) 




500-511 RSWTCH(12) I 




Retro drop weight. Weight dropped 
after retro firing. 


Cone angle used in approach analysis. 

The attitude range is this cone angle 
about the velocity vector oi* input attitude 
when KAPOPT=l (loc 1055) . Also used 
in midcourse fixed attitude scan. 

True anomaly range for trial retro firings 
in approach analysis, deg. Trial retro 
firings are made from -True to +True 
true anomaly on the approach hyperbola. 
Used when KAPOPT =1, Also used as 
firing range in retro optimization. 

Midcourse motor burn time. Used when 
the initial state is not obtained from a 
midcourse analysis. 

Initial execution time 

Secant partial step size in midcourse 
analysis also velocity increment when 
using the fixed attitude mode. 

Observation site geocentric latitude 
for sites 1-10 


B-T 

B-R 

time of flight 
h 3 rperbolic excess speed 
circular excess speed 
Total fuel optimization 
closest approach radius 
inclination 

Empty 


Midcourse 

analysis 

► 

tolerances on 
desired end 
conditions 


Spheres of influence of the planets used 
-to determine the central planet. If the 
distance from the planet is less than the 
value in RSWTCH^the planet is the central 
planet. If none of the planets are central, 
then the Sun is considered central. 


*** See Table 3.3 
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LOCATION 

FORTRAN 

SYIMBOL 

USE 

PRESET 

VALUE 

DESCRIPTION 

512 

RBURN 

A 

20. 

Retro burn time 

513 

TCATST 

I 

0. 

Time to begin closest approach 
testing logic. 

516 

SPNRA 

I 

12.0 

Spin rate, RPM. 
1 

517 

PTI 

I 

238.0 

Initial midcourse motor tank 
pressure, PSIA. 

518 

TPI 

I 

20. 

Initial midcourse motor 
temperature, ^C. . 

519 

FMC 

I 

20.4 

Current midcourse motor 
fuel, ke. 

520 

FMULT 

I 

1. 

Thrust multiplier. 

521 

WMULT 

I 

1. 

Weight multiplier. 

522 

WDOTT 

M 

.0183 

Midcourse motor weight flow used 
with Hamilton Standard thrust In 
midcourse targeting. 

523 

DTM 

U 

0, 

Compute interval during motor 
burn in midcourse targeting. 
Compute interval equals burntime 
when value is zero. 
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FORTRAN PRESET . 

location symbol use value DESCRIPTION 


1001-1012 

KP(12) I 

- 

Bodies in system. Set to 1 if only 
position is necessary, 2 if both 
position and velocity are desired. 
The order is as follows: 


1001 MERCURY 

1005 

JUPITER 1009 PLUTO 


1002 VENUS 

1006 

SATURN 1010 SUN 


1003 EARTH 

1007 

URANUS 1011 MOON 


1004 MARS 

1008 

NEPTUNE . 1012 ODDBALL 


Note: 1003 =2, 1010 

= 1, 1011 = 2 are preset 

1013 

METH 


i Current trajectory propagation method 
/ Not a program input. 




\ Numerical Integration Scheme 

1014 

KINT I 

3 

( 3. 7th-Order Runge-Kutta 
1 5. 12th-Order Multistep, 




j single step size only 

1015 

JL I 

3 

Launch planet number, . 

1016 

ENGED A 

2 

Engine number of the retro motor. 
Used in a MODE=l analysis. 


1017 JMN I 5 


Lunar and solar ephemeris flag 

1. Mean elements 

2« Mean elements for Sun 
Mean elements + Ist-order 
corrections for Moon 

3. Ephemeris tape 

4. Mean elements for Sun, osculating 
elements for Moon (loaded in 
locations 190-196) 

5. Ephemeris tape using Goddard’s 
direct read feature 


1018 KOBLTE I 1 Set to 1 for Earth oblateness. Should be 

set to 0 when 1029 = 3. 
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LOCATION 

FORTRAN 

SYMBOL 

USE 

Fun-Si:;! 

VALUE 

1019 

KINPT 

1 

1 


1021-1028 

1029 

EMPTY 

KOBL 

I 


1030 

KOUT 

I 


1031 

JT 

I 

11 

1032 

KCRASH 

I 

** 

1033 

EMPTY 



1034 

JOCC 

I 

0 

1035 

MODLEM 

I.L 

1 


1036-1038 KMETH(3) I 


DESCRIPTION ■ 

Input coordinate system flag 

1. Mean equator and equinox of 1950 

2. Mean equator and equinox of date 

3. Mean ecliptic and equinox of date 

4. True equator and prime meridian 
of launch planet 

5. True equator and equinox of date 

6. True lunar equator and node. 

7. Earth spherical. See location 40-50 
of INPUT common 

Set to the number of the planet in which 
the gravitational field is to be simulated 
using FIELD2, See location 1035. 

If 1, output according to print table. If 
zero, output only at beginning and end of 
run. If -1, no output. 

Target planet number 

Closest approach flag 

0 No closest approach test 

1 Continue after closest approach 

2 Stop on closest approach 

Occultation flag. Set to the planet 
number where the observer is located. 

Lunar gravity model flag 

1 for Houston LI model of Lunar field 

2 for Eaii:h 

3 for JPL 15 by 8 Lunar Field 

5 zeroes initial field so new field can be 
input 

10 Used field set in last case 

Trajectory propagation method 
IfT<TMETH(l) METH = KMETH(1) 

If TMETH (I“l) <TC <TMETH(I) 

METH = KMETH(I) 

TMETH is in location 10. 

1. Cowell 

2. Encke 

3. NICE/True 

4. NICE/Mean 

5. Averaged Equations of 4 

6. Multiconic, fixed stepslze only 

7. Integrals e cos 60, 60 + f 

8. Equations 7 are used in averaging 
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location 

FORTRAN 

SYMBOL 

USE 

PRESET 

VALUE 

DESCRIPTION 

1039-1040 

KOUTPT(2) 

I 

3,2 

Output coordinate systems - Launch and 
target planets 

1. Mean equinox and ecliptic of date 

2. True equator and prime meridian 

3. Mean Earth equator and equinox of 1950 

4. True Earth equator and equinox of date 

5. No output 

1041 

1042 

JRA 

JDEC 

A, M 
A,. M 

10 

15 

Number of right ascensions and 
declination angles used in the attitude 
sweep of the approach analysis. Must 
be less than 16. Also used in midcourse 
fixed attitude analysis. 

1043 

KFIRE 

A,M 

20 

Number of trial retro firing times on 
approach analysis less than 20 





Program mode 

1044 

MODE 

ALL 


0 Fly to TF or closest approach 
1, 2 Approach analyses 

3 Midcourse analyses 

4 Monte carlo analyses 

5 Midcourse verification mode 

6 Lunar lifetime mode 

7 Post-injection trim 

1045 

KD0P 

V 

0 

Set to one for doppler analysis 

1046 

KAPOUT 

A 

0 

Set to one if retro firing time analysis 

is to be output for each attitude 




' 

Thrusting mode 

1047 

KFMOD 

I 

0 

0 Tabular thrust / weight 

2 Impulsive velocity 

3 Hamilton Standard subroutine 

1048 

KAPSAD 

A 

1 

Set to one for lunar orbit shadow , 
calculations during approach analysis. 

1049 

KSAD0W 

I 

0 

Shadow calculation flag during trajectory 
propagation: 


0 No shadows detennined, 

1 Shadow time determined by interpolation 
while numerically integrating trajectory, 

2 Osculating orbit used to determine times. 
Note: KSADOW^l should not be used when 

averaging. 
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LOCATION 

1050 


1051 


1052 


1053 

1054 


1055 


1056 


1057 

1058 


FORTRAN PRESET 

SYMBOL USE VALUE 

MCOUT M 0 


JMC M 10 


KMONTE C 2 


KMAX 

C 

50 

KSTART 

C 

17 


DESCRIPTION ’ 

Extra output flag in midcourse analysis, 

1. Outputs targeted solution from PROTO 

2. Prints AV, constraint errors for each 
iteration. 

3. Prints jet iteration information along 
with 2. 

Number of midcourse execution times 
simulated 

Monte Carlo description flag 

1, retro only 

2, midcourse and retro 

3, two midcourses and retro • 

If negative, the first correction will be 
calculated from the nominal assuming that 
the tracking data is good. 

Sample size of Monte Carlo analysis. 

Random number starter. 


KAPOPT A 1 


NGRAPH 


KREAD A,V 

KOUT9 I, L 


Approach analysis option flag. 

KAPOPT = 1 Firings made between an 
input range of true anomaly about perigee 
on the approach hyperbola. The attitude 
range is an input cone angle about the 
velocity vector at closest approach. 

KAPOPT = 2 Firings made from as 5 unptote 
to asymptote on the approach hyperbola. 

The attitude range is input as initial right 
ascension and decimation, increment in 
right ascension and declination, and number 
of attitude angles. 

KAPOPT = 3 Firings made between input 
times. The attitude range is input as in 2. 

If positive, Element set number, for MAESTP 
graphics data base. 

If negative, replace | NGRAPH | element set. 

Integer used to obtain initial conditions from 
a midcourse analysis. KREAD corresponds 
to the midcourse correction number desired, 
If KREAD is zero, this option is ignored 
and the initial state must be input. 

Auxiliary peripheral output imit number 
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LOCATION 

FORTRAN 

SYIMBOL 

USE 

PRESET 

VALRE 

DESCRIPTION 


• 

- 


Extra output flag. Used when KOUT9?^0 

1059. 

KTERM 

I,L 

0 

0. Orbital elements printed 

1. Position and velocity vectors 
printed 

2 . Both 0 and 1 

1060 

INPWT 

I 

1 

Input array write flag ■ ^ 

0 no write 

1 write 

1061 

MCUNIT 

A,M,V 

11 

Unit number of auxiliary midcourse 
output unit. 

1062 

IBTR 

M 

2 

Miss vector option flag in Midcourse 
Analysis 

1. Use B*T and B*R loaded in BVD 

2. Use PSID(l) and PSID(2) 





Midcourse guidance law 

1063 

KGLAW 

M 

2 

1. Minimum fuel 

2. Fixed time of arrival 

3. Fixed target energy 

4. Variable target energy 

5. Total fuel optimization 

1064 

NGROPT 

M 

1 

Number of trials for which secant matrix 
is recomputed in Midcourse Analysis. 

1065 

NT 

M 

10 

Number of trials allowed in Midcourse 
convergence. 

1066 

JET 

M 

1 

If set, preliminary targeting will be done 
in the Midcourse Analysis. 


Limiting factor in the Midcourse Analysis. 

1067 MCLM M 100 The midcourse correction is limited to 

MCUM * DINK (Klil/SEC) on each iteration. 
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LOCATION 

FORTRAN 

SYMBOL 

USE 

PRESET 

VALUE 

DESCRIPTION 

1068 

NORD 

I,L 

6 

Number of ordinates in averaging — 
less than 16. 

■« 

O-UU J 

TXTrn 
LX\ X 

T T 

X, XX 

o 

Number of 
less than 16 

1070 

KPROB 

M 

95 

Output probability for midcourse 
execution error. Second midcourse 
execution time and errors are input 
through locations 440, 435, and 436, 
Negative or zero skips error propagation. 

1071 

mURN 

M 

6 

Trajectory propagation method during 
finite burn of midcourse motor. Impulsive 
calculations are used when set to zero. 

1072 

KROUT 

M,C 

0 

Extra output flag during retro optimiza- 
tion calculations. 

1073 

KORECT 

I 

0 

If set nonzero, the derivative at the 
end of an integration step will not be 
calculated. 

1074 

KMTOUT 

C 

0 

Flag used to output initial state for 
each sample in a Monte Carlo analysis. 

1075 

KMETHP 

M 

6 

Trajectory propagation method when 
generating partial derivatives. 

1076 

IFIND 

All 


Element set number of the anchor vector to 
be transferred from the differential 
correction program. 

1077 

KTF 

M 

0 

Flag used to determine the type of 
Midcourse analysis. 


= 0 One-dimensional scan of midcourse 
execution times 


> 0 Two-dimensional scan of midcourse 
execution times and flight times* Flight 
times are scanned in KTF one -hour steps 
beginning at the desired flight time in 
location 422. 

< 0 Two-dimensional scan of midcourse . 
execution times and midcourse impulsive 
velocity. The impulsive velocity is 
centered about value, loaded into 426 and 
varied in -KTF steps of size DINK 
(location (479), 
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LOCATION 

FORTRAN 

SYMBOL 

USE 

PRESET 

VALUE 

DESCRIPTION 

1078 

IVTI 

M 

0 

Overburn option key 

0, in-plane retro antiparallel at 

perlapsis, 

± 1, variable inclination procedure 
approaching above or below desired 
inclination 

± 2. variable periapsis procedure cir- 
cularizing in -plane before or after 
periapsis. 

1079 

KHIGH 

I 

0 

Farthest approach flag. If set, furthest 
approach will be found. 

1080 

NORMIN 

M,C 

0 

Retro optimization flag 

0 In-plane at periapsis maneuver for 
underburns, according to IVTI for 
overbums 

± 1. optimize retro to trim inclination 
in PROTO 

2, Same as 1, but in TARGET also. 

1081 

NREV 

A 

0 

Number of revolutions the transfer orbit 
completes before stopping at closest 
approach in an approach analysis 

1082 

KAPWT 

A 

0 

Flag used to write information from the 
approach analysis in an auxiliary unit. 11 
is set to the output unit number when the 
option is desired. 

1083 

NAPUNT 


11 

Unit numbers where initial conditions 
are stored from a previous approach 
analysis on post- injection trim analysis. 

1084 

KSOLP 

I 

0 

Solar pressure flag, 

0, no solar pressure 

1, pressure in radial direction only 

(s/c assumed to be sphere) 

2, spacecraft assumed to be a cylinder 

spinning along attitude vector. 

1085 

1086 

kcov 

C 

0 

Coordinate system of covariance matrix 

0, mean Equator and equinox of 1950* 

1, local tangent plane 

Used in PEST version 

1087 

IDATT 

aU 

0 

Element set number of attitude file. 
Used when attitude is to be Input via 
read from ADP, 
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LOCATION 


FORTRAN 

SYMBOL 


USE 


PRESET 

VALUE 


DESCRIPTION 


1 AOC 
Jk voo 

XT A T'TTMnr* 

^ WiLl A 

ail 

12 

Unit- niimhp.r of attitiido data. 

1089 

IDSAT 

aU 

1234567 

Satellite identification number. 

1090 

INIT 

all 

0 

Initial line number of MAESTRO^S 
space allotted on the director's display. 
If INIT is zero, no writes are made on 
the director's display. This option is 
only used during real-time operations. 

1091 

KPIT 

P 

0 

Flag used to Indicate post- injection 
trim targeting. 

1092 

ISET 

all 

0 

Element set number when using sub- 
routine PUTELS to transfer state to 
GTDS program. 

1093 

KPLOT 

all 

0 

Set to the plot unit number when 
plotting. 

1094 

NMOD 

I,L 

0 

Maximum number of zonals and 

1095 

1096 

NMOD ■ 

I,L 

0 

tesscrals used to define the gravity 
field. 

Used in PEST version. 

1097 

ICATMOS 

I 

0 

Atmosphere drag flag. Set to 3 for 
Earth Drag. 

1098 

KASTRT 

all 

0 

Flag used to initiate start-up procedure 
to obtain average elements from 
osculating elements. 

1099 

KTIST 

I 

0 

Flag used to determine thrusters used 
in Hamilton Standard program 

0 both thrusters 

1 first thruster only 

2 second thruster only 
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COMMON INPUTS 


Description; 


Length; 


Subroutines Using: 


This common block contains the saved input array. 
This common block is required to stack cases. 


1000 8-byte real words followed by 
100 4-byte integer words 

MAIN INPUTF 


This common block is essentially the same as INPUT common. 



COMMON INTER 


Description: This common block contains quantities used in the 

interpolation logic of state propagation by numerical 
integration. 

Length; 130 8 -byte words followed by 

1 4“byte integer word 

Subroutines Using: CLOSE INTERP TIMEC UPDATE 


Location 

Symbolic 

Name 

Description 

1 

X(10) 

Table of times corresponding to the saved values 

11 

POS(6, 10) 

Array of saved values of the integration variables 
at the times corresponding to X. 

71 

ACL(6,10) 

Array of derivatives of the integration variables at 
the times corresponding to X. 

131 

INT 

Integer used to indicate the current value of the 
arrays X, POS and VEL, 
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COMMON INTVAR 


Description: 


This common block contains the variables used in 
numerical integration 


Length: 


14 8 -byte words 


Subroutines Using: 


MAIN 

CRASH 

GRAY 

MOTORS 

POST 

SOL 


ARMPIT 

EQNS 

INTEG 

OUTPUT 

RKSEVN 

TIMEC 


AVEQNS 

FIELD2 

JET 

OUTl 

SETUP2 

TWELVE 


AVSTRT 

FOWARD 

LUNA 

PLANET 

SHADOW 

UPDATE 


Symbolic 

Location Name 


Description 


1 

X 

Independent variable of the numerical integration, 
usually time (sec) 

2 

Y(6) 

Dependent variables of the numerical integration. 

The quantities depend upon the trajectory propagation 
technique in use. 

8 

RATES(6) 

Derivatives of the dependent variables with respect 
to the independent variable 

14 

H 

Compute interval is used, same units as X. 
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r’rvi\/nv/roxT TXiT*xrr>v 






Description: 

Length: 

Subroutines Using: 


INTVRX is used in averaging osculating elements. 

12 8-b5de words plus 
1 4-byte integer word 

AVSTRT EQNS RKSEVN 


Location 

1 

7 

13 


Symbolic 

Name 


Z 

QATES 

NQ 


Description 

Osculating elements. Method 7 

Time derivatives of Z 

Number of elements to be averaged ( 6 ) 
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COMMON MCCOM 


Description: This common block contains variables pertaining to 

the midcourse correction analysis. 


Length: 

150 8 -byte words followed by 
50 4-byte integer words 



Subroutines Using; 

APROCH 

BELL 

BURND 

FIXATG 

JET 

MCBURN 

MCSET 

MCVERF 


MDCORS 

MINTF 

MONTE 

POST 


PROTO 

SENSO 

SETUP2 

TARGET 


Location 

Symbolic 

Name 

Description 







1 ALIMIT Maximum allowable change in midcourse velocity 


on each iteration, km/sec. 

2 TR Epoch of target planets state XS (location 32 in 

MCCOM common), seconds since state epoch. 

3 PRX Probability level of midcourse execution errors, 

percent. 

4-5 - Not used. 


6 


12 

15 


18 

19 

21 


XMC(6) 

Midcourse pre-maneuver state. Cartesian position 
and velocity vectors in Earth mean equinox and 
equator of 1950, km and km/sec. 

DV(3) 

Midcourse impulsive velocity correction vector 
in Earth mean equator and equinox of 1950, km/sec 

DVS(3) 

Spherical components of midcourse velocity DV. 
Magnitude, declination and right ascension, 
respectively, km/sec and deg. 

TMCS 

Midcourse correction execution time, seconds 
since state epoch. 

BVD(2) 

Desired impact parameter vector at target planet, 
B*T and B»R, respectively, kms. 

XSUN(3) 

Vector from the spacecraft to the Sun in 
Earth mean equator of 1950. 
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Location 


S 5 nnbolic 

Name 


Description 


Ml ^ 

ny34 

Midcourse impulsive velocity correction on 
previous correction, km/sec. 

25 

DVRET 

Impulsive velocity of retro motor, km/ sec 

26 

EXFUEL 

Expected second midcourse fuel due to first 
midcourse errors (kg) 

27 

TV(3) 

Unit vector along the spin-axis at retro maneuver 
time (true equator and prime meridian of target 
body) 

30 

DVT 

Required post-injection trim velocity, km/sec. 

31 

FUELT 

Fuel required for the post-injection trim 
maneuver, kg. 

32 

XS(6) 

Cartesian target planet state resulting from current 



midcourse maneuver in true equator and prime 
meridian of target planet, km and km/sec. 

38 

PFAC 

Midcourse variable target energy guidance constant. 
Set to 

PFAC = ASPR * WRETRO/ASPMC 
where 



ASPR is the retro motor's specific 

impulse, sec, 

ASPMC is the midcourse motoi*s specific 
impulse, sec. 

WRETRO is the retro motor's fuel, kg. 

39 

DJDIF 

Time from liftoff to state epoch, sec. 

40 

SIGOUT(l) 

Time, sec. 


41 

SIGOUT(2) 

Hyperbolic excess speed, 
km/sec 

errors at 

42 

SIGOUT(3) 

Arrival circular excess 
speed, km/sec 

target planet due 
V to midcourse 

43 

SIGOUT(4) 

Required post injection 
trim fuel, kg. 

execution 

44 

SIGOUT(5) 

Radius, km 

errors. 

45 

SIGOUT(6) 

Inclination, deg. 



J 
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Location 

Symbolic 

Name 

Description 

46 

FFIRE 

True anomaly of retro-fire on the approach 
hyperbola (rad) 

47 

WTF 

Spacecraft weight after midcourse correction, kg. 

48 

TMC2 

Time of second midcourse, seconds since state 
epoch. 

49 

EXV2 

Expected magnitude of second midcourse 
correction, km/sec 

50 

DPT(3,10) 

Partial derivative matrix. This matrix represents 


the partial derivative of the output variables with 
respect to the midcourse correction velocity. 

The order of the output quantities is the same as 
the PSI Array starting in location 100. 




80 

PSID(l) 

Radius, km. 



81 

PSID(2) 

Inclination, deg. 


Desired end conditions 

82 

PSID(3) 

Time of flight, sec. 


^ at target planet. Array 

83 

PSID(4) 

Hyperbolic excess speed, 


f is ten long, only six 



km/ sec. 


are currently in use. 

84 

PSID(5) 

Circular excess speed, 
km/sec. 



85 

PSID(6) 

Total fuel, kg. 

J 


86 

PS1D(7) 

Central velocity value for fixed- attitude guidance 



scan (km/ sec) 

•s. 

90 

TOL(l) 

,B»T, km. 

! 


91 

TOL(2) 

B.R, km. 


Convergence tolerance 

92 

TOL(3) 

Time of flight, sec. 


on end conditions. Only 
\ six locations of a ten 

93 

TOL(4) 

Hyperbolic excess speed 




km/ sec 


long array are currently 

94 

TOL(5) 

Circular excess speed 
km/sec. 


in use. 

95 

TOL(6) 

Minimum gain in total 
fuel, kg. 
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Location 


Symbolic 

Name 


Description 


100 

PSI(1) 

101 

FSI(2) 

102 

PSI(3) 

103 

PSI(4) 

104 

PSI(5) 

105 

PSI(6) 

110 

DW(10) 


B*T, km 
Isju 

Time of flight, sec. 
Hyperbolic excess 
velocity, km/sec. 
Circular excess 
velocity, km/sec 
Fuel expended 


Cunslrainc error 
vector. Difference 
between the desired 
parameters and the 
actual parameters. 


Expended weight table - See MCSET, MCBURN(kg) 


120-129 


Not used 


130 

XMCOM(3) 

133 

XEARTH(3) 

136-139 

- 

140 

EC 

141 

SEMT 

142-150 

- 

151 

NT 

152 

KM 

153 

JUMPTF 

154 

KBURN 


155 

13 

156 

KENTRY 

157 

IT 

158 

IR 

159 

KMC 

160 

NP 


161 

KT 

162 



Vector from s/c to Moon in Earth mean 
equator of 1950 

Vector from s/c to Earth in Earth mean 
equator of 1950 

Not used 

Eccentricity of post trim orbit 
Semi-major axis of post trim orbit 
Not used 

Maximum number of iterations allowed 
Minimum total fuel return key 
Minimum total fuel (MINTF) logic indicator 
Midcourse motor burn computation method 
= 0 impulsive 

=1-8 corresponds to the trajectory propagation 

methods. See location 1013 of INPUT 
common 

Indicator for third constraint parameter in MDCORS 

Entry key for MDCORS - skips initialization 

Current iteration number 

Return key set by subroutine MDCORS 

Midcourse execution counter 

Number of constraints 

= 2 when minimum fuel guidance is used 

= 3 otherwise 

Flight time scan counter 

Not used 
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Symbolic 


Location 

Name 

Description 

163 

NGROPT 

Number of trials to recompute secant matrix 

164 

KGLAW 

Guidance law 


= 1 Minimum fuel 

2 Fixed time of arrival 

3 Fixed target energy 

4 Variable target energy 

5 Minimum total fuel 


165 

ICB 

Central body number of XMC state in 
location 6. 

166 

ISP 

Key to determine if gradient has been computed. 

167 

IBTR 

Miss vector option key 
= 1 B • T and B - R 

2 Radius of closest approach and inclination 

169 

IPD(3) 

Constraint indicator array - constraints pointed 
out by this array are tested against tolerances 
for convergence. 

172 

KEL(IO) 

Array of elevation angles of the spacecraft 
at the midcourse execution time. The array 
corresponds to observation sites 1-10, 

(deg / 10) 

182 

KELR(IO) 

An array similar to KEL except at the retro 


firing time. 


51 



COMMON MOON 


Description; 

Length; 

Subroutines Using: 

Location 

1 

13 

14 


This common block is used to describe the Lunar 
ephemeris when the Moon is represented by oscillating 
elements. 

15 8-byte words 

LUNA SETUP2 


Symbolic 

Name 


ELMMN(12) 

TMOON 


PM 


Description 

Osculating orbital elements of the Moon and their 
sines and cosines, km and rad 

Epoch of the orbital elements, days since 
2400000 julian date 

Mean motion, rad/sec 


15 


FOM 


Mean anomaly of osculating Moon at TMOON 
epoch, rad. 



COMMON OBSIT 


Description: 

Length: 

Subroutines Using: 

Location 

1 

21 

51 


This common block contains quantities which describe 
the location of the observation sites on the Earth. 

140 8 -byte words 

DOPLER MCVERF SETUP2 VISIB 


Symbolic 

Name Description 


DOBS(10,2) Velocity of the 10 observation sites in the Earth 

true equator and prime meridian, km/sec. 

XOBS(10, 3) Position vector of the 10 observation sites with 

respect to the center of the Earth in Earth true 
equator and Greenwich, km. 

OBSROT(9, 10) The nine elements of a rotation matrix for each of 

the 10 tracking stations. The rotation matrix 
transforms a vector in the Earth true equator and 
Greenwich to an observation site local with the 
X-axis north, Y-axis west and the Z-axis up. 
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COMMON PERT 


Description: This common contains quantities which have to do with 

the evaluation of the disturbing acceleration and the current 
Encke reference orbit. 


Length: 

30 8 -byte words 


Subroutines Using: 

MAIN 

ACCEL 

AVEQNS 


EQNS 

FIELD2 

GRAY 


INTERP 

MOTORS 

OBLE 


PRINT 

SETUP2 

SOLP 

Symbolic 

TWELVE 



Location Name 


Description 



DRAG 

INTEG 

OUTl 

TIMEC 


1 


4 


7-9 


10 


22 

23 


RCART(3) 

RSW(3) 


REFORB(12) 


EN 

TREE 


Perturbing acceleration in Earth mean equator and 
equinox of 1950, lon/sec^ 

Perturbing acceleration with respect to orbit plane. 
In radial, circumferential and normal to orbit 
plane, kms/sec^ 

Not used 

Orbital elements and sine and cosine of orbital 
elements representing Encke *s reference orbit, 
km and rad. 

Mean motion of Encke's reference orbit, rad/sec 

Epoch of Encke ’s reference orbit, time since state 
epoch, sec. 


24 RECT Parameter used to determine when to rectify Encke^s 

reference orbit. 

25 DOM(6) Current position and velocity vectors of Encke ^s 

reference orbit, kms and kms/sec. 
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COMMON PIT 


Description: PIT is used for communication during orbit 

trim calculations 

Length: 20 8 -byte words 


Subroutines Using: 

ARMPIT TRIM2 

Location 

Symbolic 

Name 

Description 

1 

GIF 

Cosine of final orbital inclination. 

2 

SIF 

Sine of final orbital inclination. 

3 

DVl 

First trim maneuver's velocity impulse. 

6 

DV2 

Second trim maneuver's velocity impulse, 

9 

DV3 

Third trim maneuver's velocity impulse. 

12 

XS 

Initial state vector. 

18 

DMGG 

Storage vector of length 3. 
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COMMON PLNET 


Description: 

Length: 

Subroutines Using: 

Location 

1 


73 

85 

89-100 


This common block contains quantities that describe 
the position and velocity of the planets with respect to 
the central planet. 

100 8 -byte words 


MAIN 

AVERGE 

FIXATG 

MCVERF 

OUTPUT 

READE 

SOLP 


ACCEL 

CLOSE 

GRAY 

MDCORS 

OUTl 

SETUP2 

TARGET 


APROCH 

CRASH 

JET 

MULCON 

POST 

SHADOW 

UPDATE 


ARMPIT 

DRAG 

LUNA 

OBLE 

PRINT 

SOL 

VISIB 


Symbolic 

Name Description 


XP(6,12) 


DST(12) 


NUT(4) 


Position and velocity vectors of the planets with 
respect to the central planet in Earth mean equator 
and equinox of 1950, km and km/sec. The first 
index denotes the vectors while the second index 
denotes the planet number. The order of the 
planets is, 


1 Mercury 

2 Venus 

3 Earth 

4 Mars 


6 Jupiter 

6 Saturn 

7 Uranus 

8 Neptune 


9 Pluto 

10 Sun 

11 Moon 

12 Oddball 


Distance from the central planet to the planets, 
except that DST (JC) is distance to spacecraft 
where JC is central planet number. 


Earth nutation variables. Only available when 
tape ephemeris is used. 


Not used 
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COMMON SAVE 


Description: This common block is principally used to save various 

quantities for use in restoring the state. 

Length: 45 8 -byte words 

Subroutines Using; MAIN CRASH FOWARD OUTl 

PRINT SETUP2 TIMEC 


Location 

Symbolic 

Name 

Description 

1 

SAVE(6) 

Saved position and velocity vectors in mean equator 
and equinox of 1950, km and km/sec 

7 

TSAV ' 

Epoch of saved variables, time since state epoch, sec 

8 

SAVE 1(6) 

Saved integration variables at time corresponding 
to TSAV. 

14 

SAVE2(14) 

Saved Encke^s reference orbit, mean motion and 
epoch of reference orbit. 

28 

SRATES(6) 

Saved derivatives of the integration variables 
at TSAV. 

34-39 

- 

Not used 

40 

TOUTL 

Last time trajectory output was obtained during 
numerical integration, sec. since state epoch. 

41 

RSAV 

Last sine of the flight path angle with respect to target 
planet. Used during closest approach iteration of the 
numerical integration. 
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COMMON SHAD 


Description: 

Length: 

Subroutines Using: 

Location 

1 


16 

le 


This common block contains quantities used to 
determine the times of umbral and penumbral crossings. 

28 8 -byte words 

FOVVARD SADOUT SHADOW 


Symbolic 

Name Description 


DSAD(3,5) 


TSAD(3) 

TSX(IO) 


Saved distances from the shadow cone, km. The 
first index corresponds to 3 back times. The 
second index corresponds to the type of shadow 
as follows: 

1. launch planet umbra 

2 . launch planet penumbra 

3 . target planet umbra 

4. target planet peniimbra 

5 . occultation 

Times of the 3 back values of the DSAD array 

Times of crossings, seconds from state epoch. 
This array is segmentated into groups of 2. The 
first of a group is the entrance time while the 
second is the time of exit from the shadow cone. 
The 5 groups are ordered in the same manner as 
the DSAD array. 
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COMMON STATE 


STATE common contains information v/hich describes 
the state of the spacecraft at the end of a numerical 
integration step, 

40 8 -byte words 


Description: 

Length: 

Subroutines Using: 


Symbolic 

Location Name 


APROCH 

ARMPIT 

AVSTRT 

BELL 

CRASH 

DOPLER 

FIXATG 

TOWARD 

LUNA 

MCBURN 

MDCORS 

MONTE 

OBLATE 

OBLE 

PLANET 

POST 

SADOUT 

SETUP2 

SOLP 

TARGET 

UPDATE 

MAIN 


AVEQNS . 

AVERGE 

CLOSE 

CONTRL 

EQNS 

FIELD2 

INTEG 

JET 

MCSET 

MCVERF 

MOTORS 

MULCON 

OUTPUT 

OUTl 

PRINT 

PROTO 

SHADOW 

SOL 

TIMEC 

TOBODY 


Description 


1 

4 

7 

10 

11 

14 


X(3) Spacecraft's position vector in Earth mean equator 

and equinox of 1950, kms, 

DX(3) Spacecraft's velocity vector in Earth mean equator 

and equinox of 1950, kms/sec. 


D2X(3) 


Spacecraft's acceleration vector in Earth mean equator 
and equinox of 1950, kms/sec^. 


T 


Epoch of the above state, second since state epoch. 
Note: state epoch in location 46 of INPUT common. 


ATT(3) 

ELM(6) 


Unit vector along spacecraft's attitude in Earth mean 
equinox and equator of 1950, 


An array of quantities that describe the current state. 
Location 13 of INPUT common. METH, determines the 
quantities: 


METH 


1. not used 
2 Encke’s variables 

3, 6 Orbital elements 

4, 5 Orbital elements with mean anomaly, ^ 

7 Orbital elements with e cos to* e sin to 
and f +to. 

8 Same as 7 except f+M instead of f + to 
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Symbolic 

Description 

Location 

Name 

20-25 

- 

Not used 

26 

EJO 

Modified ephemeris date of state epoch, 
days since 2400000 Julian date. 

27 

TRU 

Contains true or mean anomaly according to 
the setting of the METH flag in location 1013 
of INPUT common. 



METH = 4, 5 mean anomaly 

METH = 8 true anomaly plus argument 



of perigee ' 

28 

EJT 

Current ephemeris time, days since 2400000 
Julian date. Also valid at intermediate times 
of integration. 

29 

TCA 

Time of closest approach, seconds since 
state epoch. 

30-31 

- 

Not used 

32 

UJT 

Current modified Julian date, days since 
2400000. Also valid at intermediate times 
of integration. 

33 

THRUST 

Engine thrust, newtons. 

34 

WT 

Spacecraft mass at engine ignition, kg. 

35 

W 

Current spacecraft mass, kg. 

36 

SOL 

Solar pressure constant. 

= solar pressure rrea x solar pressure 
at 1 au from the Sun x au^ x 1 (10)"^. 

37 

ACL 

2 

Magnitude of thrust acceleration (km/ sec ) 

38-40 


Not used 
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SECTION 5 


Input/Output Units 


This section describes the purpose of the input/output units required for the 
operation of MAESTRO. A description of these units is shown in Table 5,1, 
Some of the unit numbers are program inputs. If the unit number is greater 
than 1000, the number under unit number specifies the location in the input 
array where the unit number is to be input. 
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TABLE 5.1 
Input/Output Units 


Unit 

Number 

Record 

Length (Bytes) 

Subroutine 

Used 

Purpose 

1 

3512 

FIND 

Directory of the GTDS 24 -hour 
hold file , Required when input 
input location 1076 is non-zero. 

5 

36 

INPUT F 

Program data inputs. Unit 
required for all operations. 

6 

variable 

Many routines 

Program primary output device. 
Unit required for all operations. 

10 

7452 

GETTAP 

Ephemeris disk or tape. Direct 
read used with disk. Input 
location 1017 used to specify whether' 
disk or tape. Unit required when 
1017 equals 3 or 5, 

12 

280 

SETUP2 

Attitude input unit. Used to pass 
attitude from Attitude D etermination 
Program to MAESTRO. Required 
when input location 1087 is non-zero. 

13 

80 

MAIN 

Director's display. Used during 
in-flight operations. Required when 
input location 1090 is non-zero. 

21 

64 

POST, PROTO 

Plot Unit. Used to write tape for 
post processing. Required when 
input location 1093 is set to 21, 

26 

7112 

FIND 

State input unit. Used to pass state 
from GTDS to MAESTRO via the 
24-hour hold file. Required when 
input location 1076 is non-zero. 

27 

7200 

PUTELS 

State output unit. Used to transfer 


state to GTDS program. Required 
when input location 1092 is non-zero. 
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Unit Record 

Number Length (Bytes) 


*1058 variable 


*1061 360 


Subroutine 

Used 

Purpose 

OUTPUT 

Auxiliary output unit. Required 

PROTO 

when input location 1058 is non- 

POST 

zero. 

POST 

Midcourse output unit. Unit 

PROTO 

number in input location 1061 must 
be specified when the midcourse 
analysis mode is used. 


* The unit number is a program input. The number shown is the input location where 
the unit number is input. 
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SECTION 6 


SUBROUTINE DESCRIPTION 


This section presents a description of the subroutines which comprise the MABSTRO 
program. The descriptions include 


1. Calling sequence 

2 . Purpose 

3. Common Blocks Required 

4. Subroutines Required 

5. Input / Output descriptions 

6. Theory 

7. Description 

8 . Flow chart where applicable 
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MAIN PROGRAM 


Purpose: The main program initializes some common blocks and 

calls the subroutine (s) which perform the desired 
MAESTRO analysis. 

Common Blocks Required; AVG, CETBL2, CETBL3, CNTRL, CONST, FIELDM, 

INPUT, INPUTS, INTVAR, PERT, PLNET, SAVE, 
STATE 

Subroutines Required: APROCH, ARMPIT, CONTRL, TOWARD, MCSET, 

MCVERF, MONTE, PROTO, INPUTF 


Input / Output 


I/O 

SYMBOLIC 

NAME 

DIMENSION 

COMMON 

BLOCK 

DEFINITION 

o 

ICW 

1 


Tape ephemeris error flag 

I 

INIT 

1 


Flag used to write 
director’s file 

I 

MODE 

1 


MAESTRO analysis flag 

0 

TAB3 

829 


Raw ephemeris tape data 


Description: 

The main program initializes some common blocks and calls the appropriate subroutines 
to perform the desired MAESTRO analysis. No computations are done in this routine. 
MAIN is also used to define the length of many of the common blocks. 

Initially common blocks CNTRL, PLNET and STATE are cleared. Next subroutine 
INPUTF is called to initialize the input array from program inputs. Writes on unit 13 
are made if INIT is not equal to zero. These writes are messages which are displayed 
on a file known as the director's file and are only used in real-time operations. Next, 
the saved common is cleared and subroutines CONTRL and MCSET are called to initialize 
variables for later use. Finally, subroutines APROCH, MONTE, MCVERF, ARMPIT 
or PROTO are called according to the setting of the MODE flag. These subroutines 
are used to control the logic for one of the MAESTRO analysis modes. After the analysis 
is complete, flow returns to the call to INPUTF to initiate the next case. 
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SUBROUTINE ACCEL 


Calling Sequence: CALL ACCEL 

Purpose: This subroutine evaluates the acceleration 

of the spacecraft. 

Common Blocks Required: CNTRL, INPUT, GRAVTY, PERT, PLNET 

Subroutines Required; DVMAG, FIELD2, GRAY, MOTORS, OBLE, 

PLANET, SOLP 


Input / Output 


SYMBOLIC COMMON 

I/O NAME DIMENSION BLOCK DEFINITION 

■ 

JC 

■■■ 


Central planet number 


KOBL 

1 


Planet number of the planet used in 
the gravitation field evaluation 

m 

KOBLTE 

1 


Earth oblateness flag 

IB 

KSOLP 

1 


Solar pressure flag 


KTHRST 

1 


Thrusting flag 

m 

K 

1 

HSHHII 

Discontinuity flag 

M 

POS 

3 


Position of the spacecraft w.r.t, 
central planet 

0 

RCART 

3 


Spacecraft's acceleration 


Description: 

This subroutine controls the logic to determine the spacecraft's acceleration. Initially, 
the acceleration in RCART is cleared. Next, subroutine PLANET is called to obtain the 
current position of the planets. Subroutines OBLE, FIELD2, MOTORS and SOLP are 
called to evaluate the acceleration due to Earth oblateness, general gravitational field, 
engine firing and solar pressure. These subroutines are called only if input flags are 
set. Finally subroutine GRAY is called to determine the acceleration due to the planets 
in the system and the central planet if the Cowell trajectory propagation scheme is used. 
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SUBKOUTINE ACCEL 


Determine 

spacecraft 

acceleration 
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SITBHOUTINE APHOCH 


Calling Sequence: CALL APROCH 


Purpose: This subroutine perforins the analysis to determine the 

retromotor's firing time and attitude 

Common Block Required: CNTRL, CONST, ELMNT, INPUT, MCCOM, PLNET, 

STATE 


Subroutines Required: CROSS, TOWARD, M50MDT, NUTATE, ORBIT, QUEKIE, 

PUTELS, TRIM, TRMN, VNORM, VIEW, VISIB 


Input / Output 




I/O 

SYMBOLIC 

NAME 

DIMENSION 

— 

COMMON 

BLOCK 

DEFINITION 

o 

■ 

tf 

1 


Final time 

I 

DJI 

1 


Launch epoch 

m 

WO 

1 ‘ 

ilBSSHI 

Initial S/C mass 


DJO 

1 


State epoch 

o 

RTAC 

1 

INPUT<47) 

Right ascension in retro 
motor altitude 

o 

DECL 

1 

INPUT(48) 

Declination of retro 
motor altitude 

I 

HRO 

■ 

1 


Hour of state epoch 

I 

XMINO 

1 


Minutes of state epoch 

I 

SECO 

1 


Seconds of state epoch 
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SYUBOUC 

NAME 


comiON 
DmENSION BLOCK 



DEFINITION 


INPUT(170) Switching times of com- 
mite interval table 


Compute intervals 


Retro motor ignition time 


Retro motor burnout time ; 


Initial retromotor firing 
time 


Final retro motor firing 
time 


Initial right ascension 
of retro 


Initial declination of retro 


Increment in right as- 
cension 


Increment in declination 


Retro motor ^s impulsive 
veloci 


Midcourse motor's ISP 


Retro motor's ISP 


Mass of retro fuel 


Retro drop mass 


Altitude cone angle 


True anomaly firing range 
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Input / Oulput 


C 


I/O 


SYMBOLIC 
NAME • 


RBURN 


O 


TCATST 


JRA 


JDEC 


KFIRE 


MODE 


KAPOUT 


KAPSAD 


KAPOPT 


KREAD 


MCVNIT 


NREV 


KAPWT 


I/O 


X 


I/O 


DX 


DIMENSION 

COMMON 

BLOCK 

DEFINITION 






Retro motor burn time 

Time to begin closest 
approach testing 

Number of trial right 
ascensions 

Number of trial decli- 
nations ' 

Number of firing times 

Program mode flag ■ 

Firing analysis output 

flag 

Lunar orbit shadow flag 

Retro analysis option flag 

Midcourse firing number 
when initial conditions 
from midcourse analysis ! 



Midcourse unit number 



Number of transfer tra-l 
iectory revolutions 


1 

INPUT(1082) 

Unit number where ap- 
proach firings are saved 

3 

IBSffiBlilli 

S/C position vector 

3 


S/C velocity vector 
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Input / Output 


I/O 

j SYMBOUC 
• NAME ' 

DIMENSION • 

COMMON 

BLOCK 

DEFINITION 

I/O 


1 


Time since state epoch 

o 

ATT 

3 

STATE(ll) 

Unit vector along S/C 
altitude 

. 

0 

EUMD 

• 6 • 


S/C orbital elements 

I 

UJT 

1 

STATE (32) 

Current modified Julian 
date 

I 

WT 

1 

■ 

■ 

STATE(34) 

S/C mass prior to motor 
ignition 

I - 

JC 

1 


Central planet number 


Description: 

This subroutine is used to determine the retro firing time aid altitude in order to meet 
specific mission criteria, THs version of subroutine APROCH was designed for the 
RAE-B mission. The most important criterion for this mission is the post injection 
trim fuel requirement. Other constraints are the spin axis-sun angle at firing, 
tracking station coverage, shadow times and orbit orientation. The retro conditions 
are determined in a brute -force manner. Repeated trial retro firings are made at 
various altitudes and firing times. The mission constraints are determined for each 
firing and output in displays so that the user can determine the firing time and 
altitude. 

The retro motor can be simulated numerically or with the impulsive velocity ap- 
proximation. Also, the pre-retro state can be determined numerically or with conic 
approximations. The MODE flag is used to determine which approximations apply. 

If the MODE flag is set to one, the entire analysis is performed using mmierical 
techniques. The impulsive velocity and conic approximations are used when the 
MODE flag equals two. 
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The first part of the subroutine sets up constants and has logic to pick up the initial 
conditions from the midcourse tape if desiredo The KREAD flag is used for this 
option. Logic is also included to set the closest approach test start time ,TCATST, 
if more than one orbit of the transfer trajectory is desired. This option was in- 
cluded for Earth orbit missions and does not apply to a RAE-B type of mission. 

NREV should equal zero. At this point the logic flow divides according to the type 
of analysis desired - approximate or precise. 

Lets discuss the approximate case first. When MODE “ 2, the closest approach 
flag is set to 2 to cause the propagator to stop at closest approach. Next , sub- 
routine FOWARD is used to propagate the state to the closest approach of the target 
planet. The coordinate rotation is determined from the integration frame (Earth 
mean of 1950) to the true equator of the target planet. Subroutines M50MDT and 
NUTATE are used. The state at the closest approach is rotated to the desired system 
using MVTRN and orbital elements determined using subroutine ORBIT, These ele- 
m ents are the elements of the approach hyperbola. 

The firing time on the approach hyperbola and altitude are varied in one of three 
ways through the KAPOPT flag as follows: 

KAPOPT^l 

The true anomaly of the firing is determined from 

KFIRE 

L = (f^-TRUE) i* (2 TRUE/KFIRE) 

where ^ , . 

IS me xrue anomaiy ax cxosest approacn 

TRUE is the input true anomaly range 
KFIRE is the input number of firings 
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The attitude is determined by 


ra. = (RAO - CONE) + f ^ ^ i * (2CONE/JRA) 


JDEC 

DEC. (DECO - CONE) + i; 

^ 1 = 1 


i * (2CONE/JDEC) 


RAO is the input starting right ascension 
DECO is the input starting declination 
JRA is the input number of right ascensions 
JDEC is the input number of declinations 
CONE is the input altitude cone angle 

If the starting right ascension and declination are not input (equal to zero), the right 
ascension and declination of the velocity vector at closest approach will be used, 

KAPOPT=2 

The starting increment and number of altitudes must be input. Then the altitude 
is determined from 


RA. = RAO + ^ i * DELRA 


JDEC 

DEC. = DECO + S 
^ i = l 


i * DELDEC 


The firing true anomaly is determined in a manner similar to the KAPOPT=l option 
except that the range in true anomaly is from asymptote to asymptote instead of 
CONE. 


KAPOPT=3 

The first and last firing point on the approach hyperbola is input via the firing time 
since liftoff. The firings are made at KFIRE number of constant true anomaly 
steps between the bounds specified by the times. The altitude is varied as de- 
scribed for KAPOPT=2. 


73 



The IF statement just before statement 8 is used to transfer to the logic which 
sets up the necessary constants to increment the true anomaly and altitude* 

The logic flow for the precise case, MODE=l, differs slightly from the case 
discussed above* Instead of flying to closest approach to the target planet, 
the final time is set to the first firing time, TFIREl* The KAPOPT flag must 
be set to 3 for this mode; thus, flow transfers to Statement 11* 

At this point, DO LOOPS are established to increment the right ascension, 
declination and firing time. The range of these loops extends to almost the 
end of the subroutine. The mission constraints are calculated for each attitude 
and firing time and saved in arrays for output or output inside the loops* When 
the MODE=2 is used,’ the position and velocity vectors are determined from sub- 
routine ORBIT where the true anomaly is determined by the DO 10 loop* The 
impulsive velocity of the retro is added to the spacecraft’s velocity in the direction 
specified by the attitude* This calculation is performed at statement 13. Next, 
the post retro orbit is determined and desired mission constraints calculated 
using subroutines QUIKIE and TRIM* The firing time display is output if the 
KAPOUT is set. 

Subroutine FOWARD is used to simulate the retro motor when MODE=l* When 
this case is desired, subroutine FOWARD is first called to propagate the space- 
craft to the ignition time, next, the compute interv'al is adjusted and the engine 
ignition and burnout times set. Finally, FOWARD is used to propagate through 
the burn. This logic is located between statements 100 and 110. Flow then trans- 
fers to the same place where the post retro orbit is determined when MODE=2, 

The above logic is repeated until all attitudes and firing times are simulated.’ 

When the DO 30 loop is completed, the minimum eccentricity and trim fuel grids 
are output. This completes the subroutine. 
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Set state to last pre -ignition state 


Set final time to engine ignition time 
and propagate to the time with FOWARD 


Save pre -ignition state 


Simulate engine using FOWARD 


Get pre -ignition state from ORBIT 


Add retro impulsively and determine 
firing time from true anomaly 


ISET 


Use PUTELS to write 
out state for GTDS 


Calculate pre -trim 
lunar orbit from ORBIT 


Calculate constraints, spin axis - sun 
angle, shadow with QUIKIE, trim velocity 
with TRIMjand save pre-trim state 
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gUEROUTINE ARMPIT 


Calling Sequence: 
Purpose: 


Common Block Required: 
Subroutines Required: 


CALL ARMPIT 

This subroutine determines the post injection 
time requirements and outputs the post injection 
trim displays « 

CONST, INPUT, INTVAR, PIT, PLNET, STATE 

M50LEQ, ORBIT, PUTELS, ROTATE, TRIM, 
TRMN, TWOPIT 


Input/Output 


I/O 

SYMBOLIC 
■ NAME 

PROGRAM 
DIMENSION • 

COMMON 
BLOCK . 

DEFINITION 

I 

CID 

1 

INPUT(446) 

Inclination of desired final 
orbit w, r , target planet 
equator. 

I 

DJL 

1 

SRHUI 

Modified Jiilian laimch 
date 

I 

DJO 

1 


Modified Julian date 
of epoch 

o 

CIF - 

1 

BSHIIIIII 

Cosine of desired 
inclination 

I 

DVl 

3 

1 

■ 

First trim velocity 
maneuver 

I 

DV2 

3 


Second trim velocity 
maneuver 

I 

IDSAT 

1 . 

iNPUT(1089) 

Satellite ID number 

nn 

ISET ' 

1 ■ . 


Element set number when 
state is saved from GTDS 


JT 

1 


Target planet number 

I 

RD 

1 


Radius of final orbit 

I 

TRINC 

1 


Inclination of the transfer 
orbit 

o 

SIF 

1 

HBHI 

SiiB of desired inclination 
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Input/Output 


I/O 

STOBOITC 

NaVMF 

PROGRAM 

DTMENvSTON 

COMMON 

■ RmCK 


I 

UJT 

1 

STATE(32) 

Current modified 
Julian date 

I 

X 

6 

STATE(l) 

Position and velocity 
of spacecraft 

I 

XP 

6, 12 

PLNET(l) 

Positions & velocities 
of the planets 

I 

XS 

6 

PIT(12) 

Position and velocity 
of spacecraft just 
prior to first 
maneuver 


Description: 

This subroutine determines the post injection maneuver required to achieve a 
circular orbit with a desired radius and inclination. Two maneuvers are 
determined. First, a two impulse maneuver with a plane change and, second, a 
Hohmann transfer maneuver with no plane change. The maneuvers are determined 
in subroutines TWOPIT and TRIM, respectively. 

The initial orbital elements are determined using subroutine ORBIT and supplied as 
inputs to subroutines TRIM and TWOPIT. The calculated maneuver is passed back to 
ARMPIT via DVl and DV2 of PIT common. Also the state just prior to the first man- 
euver is passed back in XS of PIT common. The first maneuver is added to the 
state in XS to determine the transfer orbit. Subroutine ORBIT is used to determine 
the transfer orbitb elements, ELMT. A 180 degree transfer is specified. Thus, the 
true anomaly of the second maneuver on the transfer orbit is, 

F = ELMT(3) + 7T 

The cartesian state is determined at this true anomaly, the second maneuver applied^ 
and the final orbit, ELMF, determined using ORBIT. The desired output quantities 
are determined and the appropriate displays presented. 
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The above logic is surroxmded by a loop using the flag ISTEP. The purpose of the 
loop is to pass through the calculation of the orbits once for the plane change man- 
euver and a second time for the Hohmann transfer maneuver. 

The state after the first trim can be written as a hold file for retrieval by the GTDS 
Program. The ISET flag is used to key this option. Subroutine PUTELS is used to 
write this file. 
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SUBROUTINE ARMPIT 
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FUNCTION ATMO 


Calling Sequence: CALL ATMO(JC, N, H) 

Purpose; To compute the atmospheric density for drag 

calculations. 

Common Blocks Required; None 
Subroutines Required; None 

Inputs /Outputs 


I/O 

SYMBOLIC 

NAME 

DIMENSION 

COMMON 

BLOCK 

DEFINITION 

I 

JC 

1 

Call List 

Central body number 

I 

N 

1 

Call List 

Atmospheric model number 

B 

H 

1 

Call List 

Altitude 


Discussion; 

Atmospheric density is computed as an exponential function of altitude for 
Mercury, Venus, Earth, or Mars when altitude is below 50,000 km. The density 
data is tabulated as a function of altitude. 

p = exp [ p^_^ + s ( f.n h - ^n h^_^ ) ] 

where 

and 
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SUBROUTINE AVEQNS 


Calling Sequence: CALL AVEQNS 

Purpose; To average, by Gaussian quadrature integration, the 

planetary equations over one revolution of the satellite 
in its orbit. 


Common Blocks Required; 


INPUT, CNTRL, STATE, AVG, INTVAR, PERT, 
CONST, GRAVTY 


Subroutines Required: 


TRMN, ORBIT, ACCEL, ROTATE 


Input / Output 


SYMBOLIC COMMON 

I/O NAME dimension BLOCK DEFINITION 

I 

meth 

1 

INPUT(1013) 

Trajectory propagation method 

I 

NORD 

1 

INPUT(1068) 

Number of ordinates to be used for each 
interval of Gaussian quadrature integration 

I 

int 

1 

INPUT(1069) 

Number of intervals into which the orbit is 
divided for Gaussian quadrature integratMi 

I 

DJO 

^■11 


Modified Julian date at liftoff epoch 

I 

EJO 

1 

STATE(26) 

Modified ephemeris date at 
liftoff epoch 

■ 

JC 

1 

CNTRL(7) 

Central planet number 

■ 

PI2 

1 

CONST(3) 

Twice pi 


GM 

12 

CONST(5-16) 

Gravitational constants of the planets 

I 

X 

1 

INTVAR{1) 

The current time (independent 
integration variable) 

I 

Y 

6 


The current array of dependent 
integration variables 

I 

WEIGHT 

78 


Weights for Gaussian 
quadrature formula 

H 

ABSCIS 

78 

AVG (9«156) 

Abscissa for Gaussian 
quadrature formula 

0 

RATES 

6 


The time derivatives of the current depen- 
dent integration variables 
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Input/Output 


T/O 

SYMBOLIC 

NAME 

DIMENSION 

COMMON 

BLOCK 

DEFINITION 

I 

PI 

1 

CONST{2) 

Pi 

I 

F 

1 

STATE(27) 

Mean or true anomaly plus 
aro;umeiit of perigee 

0 

EJT 

1 

STATE(28) 

Current ephemeris date 

O 

UJT 

1 

STATE(32) 

Current modified Julian date 

















Theory: 

Reference 1 gives a description of the theoretical basis for the numerical averaging. 
The planetary" equations are written in Gausses form where the perturbations enter 
directly as accelerations rather than as the partial derivatives of a potential function. 
The planetary equations exist in several forms in the program. They are symbolically 
represented by 


E. - f. (E,, t) 
1 1 ' j ^ 


ij =1,6, 


( 1 ) 


where the E represent a set of 6 independent osculating orbital elements, 
i 


The averaging operation is accomplished numerically rather than analytically and is 



f. d t 
1 


( 2 ) 


where r is the orbital period. The mean values of the orbital elements are defined 
by 


E = 



( 3 ) 


The important thing to note is that the numerical averaging method essentially trades 
the set of 6 differential equations for the osculating orbital elements for a set of 6 
differential equations for the mean orbital elements. 

The mechanical averaging is done with respect to true anomaly rather than with the time 
directly. The Keplerian relation 

f = 2 ^ - 

2 
r 
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is used to transform the integrals in (2) from time to true anomaly giving 

/ f (t + 72) 

fi (Ej. df 

(1+e cosf) 

t (t - V2) 

where f is the true anomaly and the other symbols represent Keplerian elements 
and constants as given in Reference 1. 

Description; 

This subroutine is a modified version of a variable-order, variable interval Gaussian 
quadrature integrator. The weights and abscissae for the quadrature formula are stored 
sequentially in AVG common, in the arrays called WEIGHT and ABSCIS. The values 
stored correspond to quadrature formulae of order 2 - 16 as given in reference 2. The 
single weight required for a two-point quadrature is stored in WEIGHT(l), the two 
weights required for a three point quadrature in WEIGHT(2) and WEIGHT(3), and the two 
weights required for a four point quadrature in WEIGHT(4) and WEIGHT(5). The pattern 
continues up through and including the eight weights required for a 16 point quadrature 
stored in WEIGHT (64-71). The corresponding abscissae are stored in the corresponding 
locations of the ABSCIS array. 

The order (N0RD) of the quadrature is specified by the user as well as the number of 
subintervals (INT) to be used in the integration. The full range of the independent variable 
(true anomaly) is divided into INT intervals and the current (mean) value of the true 
anomaly is calculated from the mean mean anomaly and stored. The coding near statements 
50 and 51 establishes the proper limits of integration and performs the transformation 
from mean anomaly to true anomaly for either the Method 5 or Method 8 variables. Throughout 
the subroutine, appropriate tests are made to distinguish between the two methods. 

Certain quantities that are calculated only once are established before the quadrature 
summation begins at the DO 507 loop. This outer loop is for the summation of the sub- 
interval quadrature formula. The actual Gaussian quadrature algorithm starts at statement 
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150 where the time and the sine and cosine of the true anomaly are calculated for 
each required evaluation of the integrands for the 6 differential equations to be 
numerically averaged. The values of the integrands are calculated as shown in 
reference 1, multiplied by the appropriate weight, and the results are stored in 
the array SUM. 

The results of each subinterval quadrature are accumulated in the array called ANS 
until all subintervals are completed at statement 507. The 6 stored integrals are 
then multiplied by the constants outside the integral signs of the averaged equations 
and the results are loaded into the RATES array of INTVAR common for use in 
the numerical solution of the averaged differential equations of motion. 


References 


1. Uphoff, C., Numerical Averaging in Orbit Prediction, Pi*e seated at AIAA/AAS 
Astrodynamics Conference, Palo Alto, Calif. , AIAA preprint No, 72-934, 
September 1972. 

2. Abramowitz, Milton and Stegun, Irene A., Handbook of Mathematical 
Functions, published by The National Bureau of Standards, Applied 
Mathematics Series No, 55, May 1968. 


88 



SUBROUTINE AVERGE 


Calling Sequence; CALL AVERGE (KSET) 

Purpose: AVERGE calculates the average perturbing 

acceleration due to the Sun and the Moon's indirect 
term over one step of the multiconic trajectory 
scheme. 


Common Block Required; DUM, STATE, PLNET, CONST 

Subroutines Required: DVMAG 


Input / Output 


I/O 

SYMBOLIC 

NAME 

DIMENSION 

COMMON 

BLOCK 

DEFINITION - 

I/O 

AIS 

3 


Earth-Moon acceleration 
at beginning of step 

I/O 

A2S 

3 

ISSHU 

Sun acceleration at 
beginning of step 

I 

DT 

1 


Step time interval 

■1 

GM 

12 


Gravitational constants 
of planets 

I 

KSET 

1 

CALLING 

OPERAND 

Flag for adding or subtracting 
accelerations 

I/O 

X 

6 


Position and velocity of 
spacecraft 

I 

XP 

72 


Positions and velocities of 
planets wrt central planet 
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Theory: 

AVERGE corrects the position and velocity of the spacecraft during each step in 
order to account for perturbing accelerations that are not included in the conic 
assumptions. 

These perturbing accelerations are caused by the Sun and also by the effect of 
the Moon on the planet. Let Al be the acceleration vector due to the Earth- 
Moon term at the present time, and AIS be the same vector from the previous 
time (T-DT). Similarly let A2 and be the Sun term accelerations corresponding 
to T and T-DT, 

_ 3 

Then A1 = G M_ * 1 r I 

m em I em! 

And A2 = G M * (R ^ / IR^J + R^„ / |R^, I ) 

s es [ esj sv i svi 

Where subscripts m, e, s, sv refer to Moon, Earth, Sun and 
space vehicle respectively and R is the vector from the Earth 

6 S 

to the Sun, etc. 

The average accelerations on the spacecraft with respect to the Earth over 
the interval DT are: 

A1 = - (Ai + aTS) /2. 
a 

A2 = - (A2 + A^ /2. 

2L 

If X and DX represent the position and velocity of the spacecraft respectively, 
then the corrected position and velocity are 

X = X + 1/2 * (A1 + A2) * DT^ 

DX = DX + (^ + A2) * DT 
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If KSET . LT. 0,then the orbit is to be retraced, in which case the following 
equations are substituted for those above: 

X = X - 1/2 * (A1 + A2) * DT^ 

DX = DX - (A1 + A2) * DT 


Description: 

AVERGE is used in connection with the multiconic scheme. It calculates the 
acceleration of the Earth due to the Moon at the present time and adds it to 
the acceleration at the last time and divides by two for the average acceleration 
over the step. The present acceleration is then saved for future use. 

The same procedure is followed for the calculation of the acceleration due to 
the Sun on the Earth and on the spacecraft. 

Once these two average acceleration vectors have been calculated, the position 
and velocity of the spacecraft are updated to reflect the accelerations. The 
changes in position and velocity are either added or subtracted depending on the 
flag KSET. If KSET .GE. 0, then forward propagation is desired and the terms 
are added. Otherwise, the terms are subtracted and the orbit path is retraced. 
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Calculate average 
acceleration 
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SUBROUTINE AVSTRT 


Calling Sequence: CALL AVSTRT 


Purpose: To average the input osculating elements over one 

revolution of the satellite in its orbit- This pro- 
cedure yields the mean orbital elements at a time 
halfway through the first revolution and these ele- 
ments are used to start the numerical averaging 
techniques for long-term orbit prediction. 


Common Blocks Required: CONST, INTVRX, STATE, INPUT, INTVAR, CNTRL 

Subroutines Required: INTEG, ORBIT, EQNS (indirectly) 

Reference: Uphoff, C., Numerical Averaging in Orbit Prediction, 

AAS/AIAA Preprint No, 72-934, Palo Alto, California, 
September 1972 


Input / Output 



_ — , ^ _ I 



I/O 

SYMBOLIC 

NAME 

PROGRAM 

DBVIENSIONS 

COMMON 

BLOCK 

DEFINITION 

I/O 

XX 

6 

STATE(l) 

Position and velocity (osculating on 
entry, me an on exit) 

I/O 

TT 

1 

STATE(IO) 

TIME (advanced by one -half revolution 
on exitl 


Theory; 

In the reference, it was suggested that the numerical averaging method should be started 
with mean orbital elements and an algorithm for performing the start-up was presented. 
The averaging technique is properly started from osculating elements by performing a 
one -revolution integration of the actual equations of motion and, at the same time, 
forming the integrals 
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At each step of the integration, the period r given by the running mean semi-major 
axis is calculated. The averaging start-up is terminated when the time t is equal 
to this running mean value of the period. The procedure is implemented by a 
simple linear search when t is found to be greater than r . The mean values of 
the elements are then calculated from 



and are associated with the mean value of the time 7 / 2 ^ 

Description; 

The averaging startup is invoked by setting KAVST (location 1098) to 1, This single 
value of the flag will cause a call to AVSTRT at the beginning of subroutine TOWARD, 
the position and velocity will be changed to values corresponding to the mean elements 
at time r /2 and the time is advanced accordingly. 

The startup will be performed in FOWAcRD only if KAVST is equal to 1. The asso- 
ciated logic in subroutine EQNS, however, will be in effect for any non-zero value 
of KAVST so that the startup may be called from other subroutines before entrance to 
TOWARD. 

To use the subroutine, put the osculating state (position and velocity) into STATE common 
and the corresponding time into ffTATE(lQ). Set KAVST non-zero and call AVSTRT, The 
averaging integration will be performed using METH = 7 with an internally set automatic 
computing interval. On return from AVSTRT, the position and velocity are changed to 
represent averaged values and the time is advanced by 1/2 revolution. All other quan- 
tities except EUVI (STATE(14-I9))are restored to the values they had before the call 
to AVSTRT. 

The integration of the six additional equations is accomplished simultaneously with the 
one revolution propagation of the state. Subroutine INTEG is used to integrate forward 
in time using Method 7 with the automatic computing interval control logic. The 
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additional integrals are accumulated in INTVRX common and, at the end of each 
step, the current time is tested against the running mean orbital period* When 
t & r the computing interval is changed to take the state from its value at the 
previous step to the desired time when t = 7^ as obtained by linear interpolation on 
the current and previous values of t and The tolerance on this simple hunting 
procedure is set at 10 seconds. 
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AVSTRT 
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SUBROUTINE BCONIC 


CALL BCONIC (UIN, XI, X2, TIN, 0UT, V0, DV0) 

BCONIC uses Lambert’s Theorem to solve for the 
Keplerian conic trajectory which connects two given 
radius vectors in a specified transfer time. 

Common Blocks Required; None 

Subroutines Called; DOT, CROSS 


Calling Sequence: 
Purpose: 


Input/Output 


1/0 

SYMBOLIC 

NAME 

PROGRAM 

DIMENSION 

COMMON 

BLOCK 

DEFINITION 


UIN 

1 

Call List 

3 2 

GM (km /sec ) of the central body 

I 

XI 

6 

Call List 

Position (km) and velocity (km/sec) vec- 
tors at the first terminal 

I 

X2 

6 

Call List 

Position (km) and velocity (km/sec) vec- 
tors at the second terminal 

I 

TIN 

1 

Call List 

Transfer time (sec) 

m 

0UT 

1 

Call List 

Iteration’s tolerance on transfer time 
error (fraction of transfer time) 

0 

V0 

6 

Call List 

Terminal velocity vectors (km/sec) 

0 

DV0 

6 

Call List 

Terminal excess velocity vectors (km/sec) 
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Theory: 


BCONIC implements the Schmidt-Bjorlcman method to solve Lambert’s problem, 
which Ls to find the conic section connecting two terminal radii in a specified trans- . 
fer time. The implemented method bears similarities to several of the methods 
described in Ref. 1, 

The conic parameters are not explicit functions of transfer time, although the con- 
verse is true, setting up the requirement for iteration to solve the problem. The 
conic sections connecting the two terminal radii can be parameterized by a single 
independent variable (in which flight time is a monotonic function). The independent 
variable of the S/B method is flight path angle, y, at the first terminal, R^, 

The necessary equations for iterating to a solution are derived as follows. The 
distance from the force center is given by 


1 + e cos f 

where p is semi-latus rectum, e is eccentricity, and f is true anomaly — 
none of which is known a priori . We presume to know the two terminal radii, r^ 
and r^ , and the transfer angle, 0 . Since r^ and r^ are points on the same 
conic section. 


1 + e cos L 


( 2 ) 


r = 2 ^ P 

2 1 + e cos ( f^ + j/)) 1 + e cos f^ cos if) - e sin f^ sin if) * 

The relationship of f^ to y at r^ is shown by 

e sin L = ^ tany 

^ ’i 

and we can eliminate e and f^ from equations (2) and (3) and solve for p as a 
function of y and the geometry. 


( 3 ) 


( 4 ) 
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p 


( 5 ) 


r2(l-cos 4)) ^3 

(r - r. cos ip)+ r sin ip tany “ 

X ^ ^ X ^ 


The potential problems in computation of Eq, (5) are eliminated by properly 
limiting the range of y. This range will be discussed later. The velocity at 
r^ can be calculated by 



r^^ cosy 


where fj. is the force center's gravitational constant. The semi-major axis of 
the transfer is given by 

a = 

One might worry about parabolic transfers when studying Eq. (7); however, the 
special treatment of parabolic transfers will be described later. 

At this point, we launch into a discussion of the calculation of transfer time, 
BCONIC's formulation of transfer time is written in terms of incremental ec- 
centric anomaly, <p , on the conic section connecting r^ and r^ . 


r V siny 


nt = ar(<p-S<p)+ — S(p+ 7I3IZ 

^ y /ioa 


In this equation, n is the mean motion m/ (O' a)^ ^ while (j , S(p, and Cep 
are defined by the following table. 



Elliptical 

Hyperbolic 

S(p 

sin (p 

sinh <p 

Cep 

cos <p 

cosh ep 

a 

+1 

-1 


It has been shown in Ref. 2 that: 


( 6 ) 


(7) 


( 8 ) 
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sin 


^ «S(p] 


1 2 

r. 2 


cos^- “ + ^^[(a^-C7iS)(l-C(p) + a^S(p] 


1 2 


r^ V siny 

where 8= — and a = 

^ a 


Jfi 


. It is easy to solve these equations for S<p 


era 


and (1 -C(p), rendering Eqs. (11) and (12) in which d = r - r cos ij) and 

J. j- 

sin if ) , 

If the transfer orbit is elliptical, (p=2 tan while if it is hyperbolic, 

<p= In (S(p + C(p), It should be noted that <p is the only transcendental function to 
be evaluated in computing the transfer time. 


( 9 ) 


( 10 ) 


( 11 ) 


( 12 ) 


Iteration: 

Equations (5) through (12) provide the recipe for computing transfer time as a 
function of flight path angle at the first terminal. The discussion which follows 
is concerned with the iteration to compute the unique flight path angle which ren- 
ders the '’desired” transfer time between the two terminals. BCONIC uses a 
simple Newton-Raphson iteration which invariably provides rapid convergence. 

r-r 




(13) 


n n-1 


Flight time is a monotonic-increasing function over the allowable range of y. 
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Limits: 


The allowable transfer orbit regions are sketched in Fig. 1 for ^<180^ and for 



No orbits traveling from to R^ are permitted in the shaded regions of the 
figure. The upper limit on flight path angle is, in either case, the path angle of 
the escape parabola P at R . This flight path angle is derivable in terms of 

^ J. 

the geometry if we solve Eqs, (2), (3), and (4) for y with the conditions that 
e = 1 and f^ = 2y . 

d^ cos 2y + dg sin 2y = - 



(14) 

(15) 


If the second term in Eq. (15) is evaluated with regard for quadrant in the range 

of 0° to 360^ , the arccosine ambiguity still leads to two solutions for y . The 

P 

larger solution is the flight path angle of the escape parabola. The smaller solu- 
tion is the flight path angle of the prograde transfer parabola connecting R^ and 

R . The transfer time for this prograde parabola is computed according to 
2 



(16) 
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If the desired transfer time is equal to the parabolic transfer time (within tolerance), 

no iteration is required and the potential parabolic singularity in Eq. (7) is avoided. 

Otherwise, the desired transfer time will be less than t^ (hyperbolic solution) or 

greater than t (elliptical solution). Thus, the flight path angle limits for the en- 
P 

suing iteration may be set as follows: 


Elliptical 


Hyperbolic 


Lower: 


Lower: 


- tan if ^^180P 

< 2 

[-7t/ 2 ifi/)>180^ 


> 


Upper: 


Upper: y ^ 

pi 


The lower limits on the hyperbolic solution correspond to the straight-line path if 
and to the path along -R and then along R if j/)>180^. Equation (5) has 
no singularities within the above limits. 


Starting: 

If the solution is expected to be hyperbolic, the initial y is taken to be a little less 
than y^^ , the prograde parabolic value. The amount less is chosen simply as 1% 
of the allowed range of y. The starting value for y when the solution is expected 
to be elliptical is the first-terminal flight path angle of the minimum-period ellipse 
joining R^ and R^ . The minimum-period ellipse is characterized by the following 
semi-major axis and semi-latus rectum (Ref. 3). 

(18) 
(19) 


^ ^ 7 (r, + r + y d^ + ) 

mm 4\1 21 2/ 


p . = 2(2a . -r,)(2a . -rj/Jd^+d^ 
min min r' min 2v ^ 1 2 
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The flight path angle is then found by substituting i»to Eq. (5). 


- 1/^3 ^ 


P . <io 
mm 2 


(20) 


I/O Computations: 

BCONIC is entered with a 6-vector of Cartesian position and velocity components 
for each terminal. The magnitudes of the position vectors, and , are 
and r , respectively. The velocity vector, V. , at the first terminal is used in 
determining whether 0 is less or greater than 180 . The cosine of ip is given by 

cos ip = (21) 

r. r^ 


but the sine of ip , computed as yi - cos^ ^ , has a sign ambiguity. This ambiguity 
is resolved by comparing the cross-product, R^xV^ , with the cross-product R^xR^ » 

If these cross-products have a negative dot product, sin ip must be negative to exclude 
retrograde orbits with respect to at R^^ . 

(R xV ) • (Ri xRJ > 0 : sin0=vl-cos% 

(R xV ) • (R xR ) ^ 0 : sin ip = - J 1 -cos^0 

XX X ^ 

The transfer angle is then defined by 

* = (22) 

At the conclusion of the iteration, BCONIC computes the vector velocity, V* , of 
the transfer orbit at each terminal. If the transfer angle is not 180^ or 360P , R^ 
and R define a unique plane for the transfer orbit. Then the velocities are 


and 


V " c^R^+ c^fR^xR^lxR^ 




(23) 

(24) 
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where 


(25) 



The other calculations are unchanged. BCONIC also computes the terminal velocity 
differences for output. 


II 

V - V 
1 1 

(31) 

II 

V*- V 
2 2 

(32) 
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SUBROUTINE BELL 




Calling Sequence: CALL BELL 

TMrpose: BELL computes statistical estimates of end constraint 

errors and second-midcourse requirements based on 
estimated first-midcourse execution error statistics. 

Common Blocks Required: CNTRL, INPUT, MCCOM, STATE 

Subroutines Required: CROSS, DOT, DVMAG, FOWARD, MCBURN, 

MVTRN, RETDV, SENSO, VNORM 


Input / Output 



I/O 

SYMBOLIC 

NAIME 

DIMENSION 

COMMON 

BLOCK 

DEFINITION 

mi 

JC 

1 

CNTRL(7) 

Central bodj^ number of state 

I 

TFINAL 

1 


Trajectory stop-time (sec). 
Input value matters not. 

I 

WTO 

1 


Initial spacecraft weight (kg) 

I 

SIGAT 

1 


Attitude execution error statistic (rad) 

I 

SIGDY 

1 


Proportional velocity execution error 
statistic (km/sec) 

I 

PRX 

1 


Scale factor for printed statistics 

I 

XMC 

6 


Pre-midcourse state (km, km/sec) 

I 

DV 

3 


Midcourse velocity impxdse (km/sec) 

T 

DVMG 

1 


Magnitude of DV (km/sec) 

I 

TMCS 

1 ■ 


Midcourse time (seconds from 
anchor epoch) 

0 

DVB4 

1 


Velocity impulse magnitude expended 
prior to current maneuver (km/sec) 

O 

EXFUEL 

1 


Expected fuel required at next maneuv( ; 
to correct errors of this one (kg) 

O 

SIGOUT 

6 

r 

MCCOM(40) 

Expected end constraint error statistics 
(^-sec, ^ m/ sec,'c-m/ sec, f-kg, ^-kn ) 
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I/O 

SYMBOLIC 

NAME 

DIMENSION 

COMMON 

BLOCK 

DEFINITION 

■ 

WTF 

1 

MCCOM(47) 

Weight (kg) after the first 
midcourse maneuver 

M 

TMC2 

1 

MCCOM(48) 

Time(sec) of the next midcourse 
maneuver relative to anchor epoch 

o 

EXV2 

1 

MCCOM(49) 

Expected next-maneuver velocity 
magnitude (m/sec) 

I 

DPT 

3,10 


Sensitivity matrix (transposed) of 
end constraints to midcourse 
velocity variations 

o 

KBURN 

1 


Midcourse burn option key 

o 

IR 

1 

MCCOM(l58) 

Sensitivity option key 

IM 

KGLAW 

1 


Guidance law selection key 

o 

ICB 

1 


Central body number 
at midcourse 

o 

X 

6 


State (1cm, km/sec) relative to JC 

o 

T 

1 


Time (sec) to which 
X corresponds 


Theory: 

Errors in the miss vector, B, are assumed to be entirely attributable to errors in 
executing the required midcourse maneuver i Deviations in B are assumed linearly 
related to deviations in the corrective velocity impulse, A V, by 

aB = - 5(AV) (1) 

a Av 


Deviations in AV are, in turn, related to errors along aV (cut off error, and 
normal to AV (pointing errors, c C ) by 

6 U 


a (AV) 


= ^ AV 


"e’ 



( 2 ) 
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The pointing errors f and ^ , are components of the error vector eastward and 
northward, respectively, from AV on the celestial sphere as shown in the figure. 

K 



The partial derivative in Equation (2) is therefore written as 


3 AV 


E 


V E 



V, E, and N are unit column vectors defined by 


V = AV/lAVl 
E = KxV/|KxVl 
N - VxE 


(K 



The partial derivative in Equation (1) is the gradient needed for computing the 
required midcourse maneuvers and is therefore available. It is computed by 
the secant method in the vicinity of the solution. Because B has six components 
(time of flight, v^, v^, total fuel, r^, i) / BAV is a 6 x 3 matrix. 

AV 


Defining P by 



we can combine Equations (1) and (2) to obtain. 



The covariance matrix of miss vector errors, C, is given by 

r- 



where E is the expectation operator and where P, being deterministic, is not 
affected by E . Assuming no correlation among 



r/'-i 1 


— 

2 

a 

0 

0 

E 

ye > ^ 

- 

V 

0 


0 


c 

L\v J 


0 

0 

2 

^n J 


If we input values for o* , ct , andcr , we can then calculate the covariance matrix 

V e n 

of miss vector errors by Equation (7). 


Then the standard de\dations of the miss-vector components are computed as 
imcorrelated errors by simply square -rooting the appropriate diagonal element 
of C, These are then multiplied by PRX to be displayed as ‘’Probability P” values. 


The problem of appropriately supplying execution error statistics now arises. If 
we assume cut-off error to be comprised of independent resolution and proportional 
errors. 


«v 


res 


^rop 



( 10 ) 


then 


res 


prop 



( 11 ) 


The resolution error is coded into the program as a uniformly distributed random 
variable on a .1 m/s interval centered at zero. The proportional error is normally 
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distributed with input standard deviations. 

Pointing errors are conveniently specified as normally-distributed along orthogonal 
axes with the same variance on each axis. The distributions and axis orientations 
would more appropriately be related to the plane of the attitude maneuver, but this 
is more difficult to simulate. The pointing error is input as a single number which 
represents the standard deviation of equal normal distributions alor^ the E and N 
axes. 

Second Maneuver Requirements 

We now consider the requirements of a second maneuver, executed at t^, to correct 
the errors made in executing the first maneuver at t^, t^ We must develop a 

mapping, M, of first midcourse execution errors, 6 (AV^); into a second-midcourse 
velocity impulse, The end constraint errors, related to 5 (AV) by Equation 

(1) are the very ones to be corrected by AV^, so 


6B 


a B 


6 (AV^) 


a B 
aAV^ 


^^2 


or 




5 B 
SAV^ 


6 (AV^) = M 6 (AV^) 


( 12 ) 


( 13 ) 


The particular constraint error set to be nulled by AV^ depends on the guidance law 
invoked. We assume that the guidance law for the second maneuver is the same as 
for the first. If the guidance law is FTA, FTE, VTE, or MTF, B has three 
components and, assuming the independence of their gradients with respect to AV^, 
the indicated inverse exists. For the MFG law where there are only two end 
constraints, SB/^^V is made invertible by adjoining a row perpendicular to the 
two rows it has. The third column of the inverse is then zeroed before the multi- 
plication, 5B , takes place because a third-constraint error must 

SAV 

have no influence on the MFG solution. The expected value of the second-midcourse 
velocity is computed as the square root of the trace of the following matrix. 
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(14) 


E (AV^ = M E ( 6 (AV^) fi (A^ 



This expected value is then scaled by PRX to bring it up to a specified probability 
(univariate Gaussian) level for printout. 

It would be desirable, perhaps, to present the expected spherical probable second- 
midcourse velocity, but the computation of this measure is too complex and time- 
consuming to be merited. The expected fuel is computed from the expected velocity 
by means of the rocket equation. 

The sensitivity matrix, ^^/dAV^, is usually available, since BELL is called right 

after the first-midcourse maneuver has been calculated. If not, however, it is 

computed by finite differences by calling SENSO. The second-midcourse sensitivity 

matrix, — ^ — , is computed at L by finite differences about the trajectory which 
SAVg ' ^ 

would result from a perfectly-executed maneuver at t^. 
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SUBROUTINE BELL 



RETURN 
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SUBROUTINE BIGMAT 


Calling Sequence; CALL BIGMAT (A, VALU, EVE, NN, NEIG, NVEC) 

Purpose: BIGMAT calculates eigenvalues and eigenvectors of a 

symmetric array using Householder’s method. 

Common Blocks required: None 

Subroutines required: None 


Reference: Householder, A. S., and Bauer, F. L., "On Certain 

Methods for Expanding the Characteristic Polynomial", 
Numerische Mathematik 1. Bank, 1. Heft, p. 29. (1959). 


Input / Output 


SYMBOLIC COMMON 

I/O NAME DIMENSION BLOCK DEFINITION \ 

I/O 

A 

21 

Calling 

Operand 

Symmetric Array * 

O 

EVE 

6,6 

Calling 

Operand 

Eigenvectors 

I 

NEIG 

1 

Calling 

Operand 

Number of eigenvalues desired 

I 

NN 

1 

Calling 

Operand 

Dimension of array ♦ 

I 

NVEC 

1 

Calling 

Operand 

Number of eigenvectors desired 

O 

VALU 

6 

Calling 

Operand 

Eigenvalues 


* The square symmetric array B has dimensions NN x NN, however, it is loaded 
into BIGMAT as A, a column vector that includes only diagonal and lower diagonal 
elements. Thus A(N) corresponds to B ( (N-1) /NN + 1, MOD (N-1,NN) + 1). 


Theory: 

BIGMAT uses the Householder method of calculation. This method involves a codiagonalization 
of the original matrix before the roots are calculated. See the above reference for details 
of the method. 

Description: 

Given the column vector A, its dimension NN (see *), the number of eigenvalues desired 
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NEIG, and the number of eigenvectors desired NVEC, BIGMAT will calculate the 
corresponding number of eigenvalues and eigenvectors. The eigenvalues will be 
output largest first in the vector VALU, The eigenvectors will be output in the 
matrix EVE so that the elements in the ith column correspond to the ith eigenvalue. 
Since the eigenvalue is needed for the calculation of the corresponding eigenvector, 
NVEC must be less than or equal to NEIG. It is inportant to note that the elements 
in A are changed in the subroutine and the values output are in general not the same 
as those input. If NVEC is not equal to zero, then there will be output written on 
Unit 6 as follows: first a value ”EPS^' will be printed and then several lines indicating 
the eigenvalues and their corresponding eigenvectors. The value of EPS represents 
the accuracy of the eigenvalue calculation. For good calculations of the eigenvectors, 
EPS must be small compared to the difference of any two eigenvalues. 
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BLOCK DATA 


Preloaded 

BLOCK DATA initializes various constants in the 
program, 

AVG, CONST, INPUT 
None 

Scarborough, James B, , NUMERICAL MATHEMATICAL 
ANALYSIS, The Johns Hopkins Press, 1930. 


I/O 

SYMBOLIC 

NAME 

DIMENSION 

DEFINITION 

o 

A 

1000 

Real portion of input array 

o 

ABSCIS 

78 

Abscissa for Gaussian quadrature formula 

o 

CONST 

50 

Program constants 

o 

KOPT 

100 

Integer portion of input array 

Q 

WEIGHT 

78 

Weights for Gaussian quadrature formula 


Calling Sequence; 

Purpose; 

Common Blocks Required; 
Subroutines Required; 
Reference; 

Input / Output 


Description; 

The arrays A and KOPT contain initialized values for variables which control program 
operations and may be changed through input. These initialized values are listed in 
Tables I and II, For a detailed description of these variables, see write-up of 
INPUT common. 
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The arrays WEIGHT and ABSCIS contain the weights and corresponding abscissa 
for the Gaussian quadrature formula. The values stored in these arrays are listed 
in Tables m and IV. For a description of the Gaussian quadrature and the use of 
these values, see the above reference. 

The array CONST contains general mathematical constants in addition to constants 
pertaining to the planets. BLOCK DATA Initializes only the mathematical constants. 
These constants and their preset values are as follows: 


LOCATION 

SYMBOLIC 

NAME 

PRESET VALUE 

DESCRIPTION 

1 

RAD 

57o 29577951308232 

Degi'ees per radian 

2 

PI 

3.141592653589793 

- 

3 

PI2 

6.283185307179586 

^17 

4 

AU 

149597893. 

Kilometers per astro- 
nomical unit. 

41 

THS 

3600. - 

Seconds per hour 

-42 

TSH 

2.7777777777778D-4 

Hours per second 

' 

43 

TDS 

86400. 


44 

TSD 

1.1574074074074D--5 

Days per second 

45 

G 

,0098066 

Average surface gravity 




on Earth (KM/sec^) 
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POCTioH OF thput arr^y 



TT7. T,rTT^ 

LOC^I? 

lOM 

LOC 1 0:i VALUD 

4 

540000.000 

5 

i.ooooonoo 

6 

1.00000000 

8 

0. 100000^000-10 

10 

O.IOOOOOOOOD 21 

33 

331 . 400000 

100 

2. 16355300 

10 1 

32/'335.400 

1-9 7 

398600 . 800 

101 

42915.5150 

104 

126710600 . 

10 5 

37918690.0 

109 

0.132715450D 12 

110 

4002 . 77300 

112 

2329 .31600 

113 

6093.63600 

114 

6378.14000 . 

115 

3409.53000 

116 

71422.0000 

117 

57505.0000 

118 

25484.0000 

119 

24933.0000 

120 

6345.00000 

12 T 

706000.000 

TOO 
.1. ^ 

1733.09000 

126 

0 .7292123610-04 

127 

0 .70 8 820000 

12 8 

D.175854900D-03 

3 34 

0,266169950 D— 0 5 

197 

0 .450000000 

19 8 

0.200000000 

201 

900.000000 

207 

20070.0000 

221 

20.0000000 

222 

25.0000000 

2n0 

43.5000000 

261 

26.6892000 

26 2 

26.6892000 

2 80 

-9867.12000 

231 

-9367. 12000 

321 

900.000000 

322 

20000.0000 

3 31 

20.0000000 

332 

25.0000000 

350 

0 .7-^0400000 

351 

0.120200000D-01 

352 

0.120200000D-01 

360 

3.55550000 

361 

3.55550000 

3 30 

O.IOOOOOOOOD 21 

381 

0 .•'.00000000 

332 

O.IOOOOOOOOD 21 

333 

O.IOOOOOOOOD 21 

384 

0 .100000000 

3 35 

0 .lOOOOOOOOD 21 

40 7 

0.630000000 

40 3 

176000000 . 

409 

400000000. 

410 

27.7072300 

41 1 

47. 70'51680 

4 12 

113. 716372 

413 

148.956961 

414 

-1 47. 511 707 

415 

-32. <37609 30 

416 

-76.8429650 

4'' 7 

-70.6665190 

420 

2333.00000 

421 

-59.0000000 

472 

396000.000 

423 

0. 620000000 

4 33 

13560.0000 

4 34 

7200.00000 

4 35 

0. 700000000 

4 36 

0.200OO0000D-01 

437 

0.700000000 

438 

0. 300000000D-03 

439 

36090.0000 

4 40 

259200.000 

441 

226.000000 

442 

232.500000 

44 3 

71 .•’100000 

444 

2333.00000 

446 

• 59.0000000 

447 

6000.00000 

44 3 

6000.00000 

450 

O.IOOOOOOOOD 21 

460 

18000.9000 

4 70 

6.00000000 

471 

0. 167800000 

472 

20.4000000 

473 

13.7700000 

474 

5.00000000 

4 75 

20.0000000 

473 

7200.00000 

479 

0 . 300000000D-03 

4 80 

-25.7357820 

431 

'-13.9032240 

482 

-24.7576070 

483 

-35.4480090 

434 

64. G2 3G430 

4 35 

35.0133150 

4 86 

38.8103660 

437 

-32.9759380 

490 

10.0000000 

49 1 

10.0000000 

492 

10.0000000 

49 3 

0 . lOOOOOOOOD-03 

494 

0 .170000000 

495 

0.200000000D-01 

496 

5.00000000 

497 

0.200000000 

501 

616000.000 

502 

925000.000 

503 

565000.000 

50 4 

43000000.0 

505 

54000000.0 

506 

51000000 .0 

507 

86000000.0 

50 8 

33000000.0 

509 

0.100000000 

510 

110000.000 

5 12 

20.0000000 

514 

2.00000000 

515 

90.0000000 

5 16 

12.0000000 

517 

238.000000 

513 

20.0000000 

519 

20.4100000 

520 

1.00000000 

521 

1.00000000 






21 

21 


11 
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TABLE II 


INTEGER PORTION OF INPUT ARRAY 


LOCATION 

VALUE 

LOCATION 

VAJ.UE 

LOCATION 

VALUE 

3 

2 

10 

1 

11 

2 

14 

3 

15 

3 

17 

5 

18 

1 

19 

X 

31 

11 

82 

2 

35 

1 

36 

4 

89 

8 

40 

2 

41 

10 

42 

15 

43 

.21 

48 

1 

51 

10 

52 

2 

53 

50 

54 

17 

55 

1 

60 

1 

61 

11 

62 

2 

63 

2 

64 

1 

65 

10 

66 

X 

67 

100 

68 

6 

69 

8 

70 

95 

71 

6 

75 

6 

83 

11 

88 

12 

89 

1284567 
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T?3L5 III 


Vffiir-JIiT AR-RAY 


TiOCATION VALUE LOCATION WJL.TJE LOCATION VT'J-TB 


1 

1.00000000 

4 

0 .6521451.55 

7 

0 .473623670 

10 

0.360761573 

13 

0 .231330051 

16 

0.362603733 

19 

0 .10122 8536 

22 

0.2606.10696 

2 5 

0.295524225 

23 

0.149451349 

31 

0.262304545 

.34 

0.12 55 30 759 . 

37 

0 .2 3249 25 37 

40 

0.1069 39 326 

43 

0.225233130 

46 

0.138373510 

49 

0.215263853 

52 

0.157203167 

55 

0. 351194603D-01 

53 

0. 186151000 

61 

0.107159220 

64 

0.199450610 

6 7 

0.149595999 

70 

0 .6225252 39D-01 

72 

a.40601479.q-)-.01 

76 

0. 10 19 20120 


2 0.2RaS2R2P!3 

5 ^ , 2/t785 

11 9 ,171 22 /T . >19 7 

14 0.2 7? 709201 

17 . 21.2'^0^5/^6 

20 0.2 20 2 39 2.95 

2 3 0,120F/!3X51 

25 0 ^ 2 F 9 6 > .19 

29 0 .'^9<7i 24 ^2U-0 1 

32 0.23 319 27.F3 

35 0,55FF25'=^71n-9i 

33 0. 20 2 15 7 

^1 0 , 471 ’75 23F^D-0 1 

44 0.207R1‘^0^3 

47 0 .9212 1499 '^D-0 1 

50 0.2^5193454 

53 0.121513571 

55 0.20257^^242 

59 0.166259703 

6 2 0 .7O3'^6O4 75.r'-01 

65 O.T 773.0 24 _15 

63 0.124F72971 

71 0.2 715 7/130/tp-0 1 

74 0. 62672042 3D-01 

77 0.11319 45 2,2 


2 

0,555555556 

6 

'^,56<>5>2P 7 20 

9 

0 ,46701 3035 

17 

0 .417059 104 

15 

0 . .*'.2'^ 9/t9 6 6 

13 

0,222331094 

21 

7 . 2 12 3 >'70 77 

2 4 

0 . ^ ? 2 7 4 3 3 7 n_9 1 

7 7 

0.7i9 0O'^7r;2 

30 

0 ,2729 250 87 

33 

0 . .'’ 06290711 

26 

0 .7/^01/177/1(5 

.39 

0 .160070229 

4.2 

0.737551553 

45 

2 .17^1/159 01 

43 

0 , 4 0 4 P 4.0 0 pn-O X 

51 

0.. 135530397 

54 

0 . '^0 5 30 "^72r-01 

57 

0 ,19 "’4 314 75 

60 

0 . 139570672 

63 

0 . 30 76 22 4.70’^-01 

66 

0, 16 9? 66519 

"69 

0.951585117D-01 

72 

0 , 1 761 400 7 ir-''! 

25 

0.<’.22 76“»416j:-*01 

7B 

0.131638600 
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TABLE IV 


A3SCISSA ARRAY 


LOCATION VALUE LOC/>TIOM VALUE LOr^ATION VALUS 


1 

0,577350269 

'y 

0.0 

3 

0. 774595669 

A 

0.339931044 

5 

0.861136312 

6 

O.n 

7 

0 .538469310 


0.906179846 

o 

0.238619136 

10 

0.661209336 

11 

0.932^-69514 

12 

0.0 

13 

0.405845151 

14 

0.741531186 

15 

0 .949107912 


0.183434642 

17 

0.525532410 

18 

0 . 796666477 

19 

0,960289856 

20 

0.0 

21 

0.324253423 

22 

0,613371433 

23 

0,836031107 

24 

0 .96 8160 240 

25 

0.148874339 

26 

0.433395394 

27 

0.679403568 

28 

0.865063367 

29 

0.973906529 

30 

0.0 

31 

0.269543156 

32 

0.519096129 

33 

0. '730 152006 

34 

0.887062600 

35 

0.978228658 

36 

0.125233409 

37 

0.367831499 

38 

0.587317954 

39 

0.769902674 

40 

0.904117256 

41 

0.981560634 

42 

0.0 

43 

0 .230458316 

44 

0.448492751 

45 

0.64 9 3.^,9 739 

4(S 

0 , 801578091 

47 

0.917598399 

48 

0.984103055 

49 

0 .10 805 49 49 

50 

0 .319112 369 

51 

0 .515248636 

52 

0.687292905 

5 3 

0.827201315 

54 

0.928434884 

55 

0 ,986283809 

56 

0.0 

5 7 

0 .20119 409 4 

5R 

0.394151347 

59 

0.570972173 

60 

0. 724417731 

61 

0.848206583 

62 

0 ,9 '^727339 2 

63 

0 .0 8799 2518 

64 

0.950 12509 8D-01 

65 

0 .281603551 

66 

0.458016779 

67 

0.617376244 

68 

0.755404408 

69 

0. 865631202 

70 

0 .94 4.57502 3 

71 

0 ,9 89 4009 35 

72 

0.993128599 

73 

0.963971927 

74 

0.912234428 

75 

0. 839116972 

76 

0.746331906 

77 

0.636053681 

78 

0.510867002 
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FUNCTION BURND 


Calling Sequence: T = BURND(DVMG) 

Purpose: BURND computes burn duration as a function of 

incremental velocity. 

Common Blocks Required: C0NST, INPUT, MCC0M 

Subroutines Called: None 


Innut/Output 


1/0 

SYMBOLIC 

NAME 

PROGRAM 

DIMENSION 

COMMON 

BLOCK 

DEFINITION 

I 

DVMG 

1 

Argument 

List 

Midcourse correction velocity (km/sec) 

a 

G 

1 

C0NST(45) 

, 2 

Earth's surface gravity (km/sec ) 

B 

WT0 

1 

INPUT(38) 

Initial spacecraft weight (kg) 

I 

TWD 

10 

INPUT(320) 

Times for weight flow rate table (sec) 

' 

i 

WD 

10 

INPUT(350) 

Weight flow rate tabular values (kg/sec) 

B 

ASPMC 

1 

INPUT(441) 

Specific impulse (sec) 

B 

DW 

10 

WmBEMi 

Weight expenditure at TWD (kg) 

0 

BURND 

1 

Call 

Burn duration (sec) 


199 ! 




































Method: 


Validity of the rocket equation is assumed. The fuel weight, FUEL , corresponding to 
the velocity increment, DVMG , is 

DVMG 

. "G'ASPMCN 
FUEL WT0(^1 - e j . 

A piecewise-linear weight flow rate is assumed. The fuel expended as a function of 
time is computed under this assumption in MCSET and stored in DW. That is, 

DW(I) = fuel expended at TWD(I) . 

FUEL is tested against DW until FUEL ^ DW(I+1), Then the burn duration is TWD(I) 
plus the time since TWD(I), which would cause the fuel to increase by FUEL ~DW(I). 



Weight flow rate and expended weight versus burn duration 
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On any segment of the burn history where the weight flow rate, w , is linear , the 
slope of the weight flow rate, w , is constant. We define the following: 


6t = 

t - TWD(I) 

6f = 

FUEL - DW(I) 

w = 

o 

WD(I) 

w = 

WD(I+1) - WD(I) 

TWD(I+1) - TWD(I) 


The fuel expenditure is a quadratic function of time. 

6f = w^6t + ^ w 6t^ 


The usual solution of the quadratic. 


• /~<2 I 

-w±vw +2w6f 


6t = 


w 


is ill -defined when w = 0 , so we multiply numerator and denominator by 


-wT^/w^+2w6f . The result is 
o o 


5t = 


2 6f 


V w + 


w +/v/w +2w6f 
o o 


The sign ambiguity on the radical is removed by observing that for w = 0 , the 
solution must reduce to 

6f 


6t = 


w 

o 


It may be noted that 


w = 


= + a/ w^ + 2 w 6f ^ 


is the constant weight flow rate which also would render 6f in the time interval, 
6t. 
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SUBROUTINE BVE 


Calling Sequence: CALL BVE(X, V,U, B, BTR, C3,STHET, CTHET, E,S, 

RP,T,R,KK) 

Purpose; To compute the miss-vector components of the orbit, 

relative to the target body, from the Cartesian state. 


Common Blocks Required; None 

Subroutines Called; CR0SS, R0TAIT 

Input/Output 


1/(6 

SYMBOLIC 

NAME 

PROGRAM 

DIMENSION 

COMMON 

BLOCK 

DEFINITION 

■ 

X 

3 

Call List 

Position vector (km) 

■ 

V 

3 

Call List 

Velocity vector (km/sec) 


U 

1 

Call List 

3 2 

Gravitational constant (km /sec ) 

0 

B 

3 

Call List 

Miss vector (km) 

0 

BTR 

2 

Call List 

Miss vector (miss -plane components 
(km) 

0 

C3 

1 

Call List 

/ 2 2U\ 2 , 2 

Energy (^V ~~^J (km /sec ) 

0 

STHET 

1 

Call List 

Sine of the true anomaly 

0 

CTHET 

1 

Call List 

Cosine of the true anomaly 

(6 

E 

1 

Call List 

Eccentricity 

(6 

S 

3 

Call List 

Unit asymptote vector 

0 

RP 

1 

Call List 

Radius of periapsis (km) 

0 

T 

3 

Call List 

Equatorial miss-axis 

0 

R 

3 

Call List 

Zenith miss-axis 

m 

KK 

1 

Call List 

Asymptote indicator 
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Method: 


Subroutine BVE computes the target miss vector, B , from Cartesian input vectors 
X, position, and V, velocity. 

For hyperbolic orbits, B is the vector from the body center to either the approach 
or departure asymptote depending on a key set by the user, (see Fig. la). For el- 
liptic orbits, the B vector is always the semi-latus rectum for the departing orbit, 
(see Fig. lb). 



S is a unit vector along the asymptote for the hyperbolic case, and is directed toward 
periapsis from the body center in the elliptic case. 

T is a unit vector taken as 

T = 

|kxSl 

where 1 , j , k are the orthogonal unit vectors of the Cartesian input position and 
velocity vectors X and V . 

R is the unit vector given by 

R = SxT 

The vectors B , R , and T lie in a plane normal to the unit vector S (see Fig. 2). 
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For visualization purposes, if X and V were given to the subroutine with the 
i and j vectors in the moon's equatorial plane, then the T and R vectors would 
be as shown in Fig. 3. The R vector doen not lie along the polar axis but, rather, 
normal to S and T . For lunar approach from Earth, the R vector is roughly In 
the direction of the polar axis, so if one had a trajectory such that B • R = 0 , the 
plane of the trajectory around the moon should lie close to the equator. 


North 



Figure 3 - Miss -Plane Geometry 
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Theory: 


Given X and V , the position and velocity vectors of the vehicle relative to the 
central body, and U , the gravitational constant for the central body, compute 
the following: 


The semi-latus rectum, PP 
PP = jxxvf/u 

The magnitude of the position vector, X 
RMAG = lx| 

The energy, C3 

C3 = V*V~2U/RMAG 
The eccentricity, E 

E - [1 + (C3)PP/U]^ 

The radial component of velocity 
RDOT = (X*V)/RMAG 
The sine and cosine of the true anomaly, 0 

CTHET = cos 0 = (PP - RMAG) /(E RMAG) 
STHET = sin 0 = RDOT(PP/U)^ 

Define a unit vector U X by 
UX - X/RMAG 


and the unit angular momentum vector by 
U~W = 


XxV I 


( 2 ) 

(3) 

(4) 

(5) 

( 6 ) 

(7) 

( 8 ) 
(9) 
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As shown in Fig. 4, a unit vector UY normal to UX and UW lying in the orbital 
plane, and in the direction of rotation is 

UY = UWxUX (10) 

The rotation of UX and UY through (-0) yields P and Q, where P is a 
unit vector toward periapsis, and Q is a unit vector in the same direction as the 
semi-latus rectum of the orbit. 



Figure 4 - In-Plane Orbit Direction Vectors 


Rotate UX and UY through (-0) to P and Q 

P = UX cos 0 - UY sin 0 
Q = UX sin 0 + OT cos 0 
The S and B vectors are computed as follows: 

For elliptical orbits 
S = P 

B = q1b| = QBMAG = Q PP 


( 11 ) 


( 12 ) 


For hyperbolic orbits, Q and P are rotated through an angle of magni- 
♦ ■ >> ^ 1^ 
tude (90 -a) to obtain S and UB, a imit vector in the direction of the B 

vector. The angle a is the half-angle between asymptotes and is computed by 
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CALP = cos O' = 1/E = sin (90 -a) 

2 ^ 

SALP = sin a = (1-l/E ) = cos (90 -a) 

In the case of the approach hyperbola, Q and B must be rotated counter- 
clockwise through (90 -O'), while for departure, cloclcwise. Thus, for approach, 
with STHET negative (see Fig. 5) 



Figure 5 - Hyperbola and Approach Asjanptote 

For departure, with STHET positive 

> — ♦ — > 

S = sin a Q - cos O' P 

UB = cos a Q + sin O' P 

— ¥ 

Finally, the B vector is 

B = BMAGUB 


(15) 


(16) 
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where 


BMAG = (U/C3 + RP) sin a. 

U/C3 = the semi -major axis 

RP = PP/(1 + E) = radius of periapsis 

B ' T and B * R are computed and returned by the subroutine as BTR(l) and 
BTR(2) respectively. As seen in Fig. 2, BTR(l) represents BMAG cos tj) 
and BTR(2) represents BMAG cos (90 
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SUBROUTINE CALEND 


Calling Sequence; CALL CALEND(T, JYR, JDY, MO, NHR, MIN, SEC) 

Purpose: This subroutine converts the current MAESTRO 

time to calendar date. 

Common Blocks Required; INPUT 

Subroutines Required: None 


Input / Output 


SYMBOLIC COMMON 

I/O NAME DIMENSION BLOCK DEFINITION 

■ 

DJO 

^HH 


Modified Julian date of state epoch 

O 

JDY 

HH 

Calling 

Operand 

Day 

o 

JYR 

1 

Calling 

Operand 

Years since 1900. 

o 

MIN 

1 

Calling 

Operand 

Minutes 

o 

MO 

1 

Calling 

Operand 

Month 

0 

NHR 

1 

Calling 

Operand 

Hour 

o 

SEC 

BHI 


Seconds 

I 

T 

IHI 


Seconds since state epoch 


Description; 

The calendar date is obtained from the modified Julian date of state epoch and time since 
state epoch. Output is year, day, month, hour, minute and seconds. 


132 



















SUBROUTINE CLOSE 


Calling Sequence: CALL CLOSE 

Purpose: Subroutine CLOSE determines the spacecraft's 

central planet and transforms the state to the 
central planet if a new planet becomes central. 


Common Blocks Required: 
Subroutines Required; 


CNTRL, CONST, INPUT, INTER, PLNET, STATE 
DVMAG, INTEG, ORBIT, TRMN, UPDATE 


Input / Output 


I/O 

SYMBOLIC 

NAME 

DIMENSION 

COMMON 

BLOCK 

DEFINITION 

I/O 

DST 

12 


Distances from s/c 
to planets 

I/O 

DX 

3 


Velocity of s/c 

o 

ELM 

6 

IBRRBU 

Orbital elements of s/c 

I 

GM 

12 


Planet gravitational 
constants 

o 

INT 

1 


Interpolation counter 

I/O 

JC 

1 


Central planet number 

0 

KDIS 

1 


Discontinuity flag 

I 

KP 

12 


Planets in the system 

I 

METH 

1 


Propagator method 

I 

RSWTCH 

12 


Distances when planets 
become central 

I/O 

X 

3 


Position of s/c 

I/O 

XP 

6,12 


Positions and velocities 
of planets 
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Description: 


There are two major parts to this subroutine. In the first part CLOSE determines 
which planet's sphere of influence the spacecraft resides in. The sphere of influence 
is denoted by RSWTCH. If the spacecraft's distance from planet J is less than 
RSWTCH(J), then planet J is central. If that planet is already the central planet, 
then CLOSE returns. If that planet is different than the central planet, then that 
planet becomes the central planet. 

The second part of the subroutine takes care of the changes in the system due to 
the change in central planet. The position and velocity vectors of the planets and 
the spacecraft are changed to correspond to position and velocity relative to the 
new central planet. KDIS is set to one to denote a discontinuity in the system. 
Depending on the propagation scheme (METH) , new orbital elements are calculated 
if needed, and INTEG is called to set up new values and derivatives of integration 
variables, INT is set to zero and then UPDATE is called so that the interpolation 
table is cleared and a new one is started. 
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SUBROUTINE CQNTRl. 


Calling Sequence: 
Purpose: 


Common Blocks Required: 
Subroutines Required: 

Input / Output 


CALL CONTRL 

This subroutine initializes the compute interval 
table and other constants before initiation of the 
program options 

ANKOR, CONST, INPUT, STATE 
DVMAG, PRINT, SETUP2 


I/O 

SYMBOLIC 

NAME 


COMMON 

BLOCK 

DEFINITION 

o 

ANKVEC 

6 


Initial anchor vector position and 
velocity vectors 

o 

ATT 

3 

IHSfSBI 

Unit vector along the 
spacecraft’s centerline 

o 

DECO 

1 


Initial declination 

0 

DELT 

10 


Table of compute intervals 

IB 

KMETH 

1 


Initial trajectory propagation 
indicator 

I 

RAD 

1 

H^SSIllli 

Radian-degree conversion factor 

o 

RAO 

1 


Initial right ascension 

o 

TCOMP 

10 

HSSlI^Sil 

Array of switcliing times used in 
compute interval table. 

I 

X 

6 

HHH 

Initial position and velocity 
vectors 


Description: 

This subroutine initializes program constants and flags before initiation of the program 
options. Subroutine SETUP2 is called at the beginning of this routine. Most of the 
initialization is performed in SETUP2. The compute interval table is also established 
if one is not already input. The compute interval table is established according to the 
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initial spacecraft radius, R, as shown in the foU owing table. 


R <20,000 

DELT(l) = 300. 

DELT(2) = 1800. 

DELT{3) == 18000, 

20000 <R <40000 

DELT(l) = 1800. 

DELT(2) = 18000. 

40000 < R 

20 

DELT(l) = 18000. TCOMP(l) = 1(10) 

If the initial spacecraft attitude is not input, the attitude is set in the same direction 
as the initial velocity vector. The subroutine next calls subroutine PRINT in order to 
obtain a list of the initial input array. 


TCOMP(l) = 18000 

20 

TCOMP(2) = 1 (10) 


TCOMP(l) = 3600. 

TCOMP(2) = 18000. 

20 

TCOMP(3) = 1 (10) 
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SUBROUTINE COVERT 


Calling Sequence: CALL COVERT (COV, X, Q, KCOV) 

Purpose: This subroutine transforms a covariance matrix 

from a local tangent plane coordinate system to 
the coordinate system of the input state which 
defines the local system. 

Common Blocks Required: None 

Subroutines Required: CROSS, VNORM 

Input/Oulput 


SYMBOLIC COMMON 

NAME DIMENSION BLOCK 



C ailing 
Operand 


C ailing 
Operand 


Calling 

Operand 


DEFINITION 


Input covariance matrix 


Transformation flag. If KCOV is not 
zero, the covariance matrix will be 
transformed 


Output covariance matrix 


Position and velocity vectors of 
the state 


Description: 

The local tangent plane coordinate system is defined as follows: 

X-axis Positive along the position vector 

Y-axis Lies in the plane formed by the position and velocity 
vectors and normal to the position vector positive in 
the direction of the velocity. It is represented 
vectorially by 

(X X X X 

Z-axis Normal to the plane formed by the position and velocity vectors. 
It is represented vectorially by 

X X V 
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This subroutine determines the rotation matrix from the local tangent plane to the 
coordinate system of the state X and V. To calculate the transformation matrix, T, 
it is first necessary to establish the vectors 

S = Xx V / (IXI |V| ) 

A 

u = SxX/ |X1 

Then the first column of the matrix is a unit vector along X . The second column is 
composed of vector u , while the last column consists of vector S . 

The covariance matrix ts transformed to the new coordinate system using the following 
relationship, 

[q]= [t] [cov] [t]‘ 

If KCOV is zero, no transformation is performed and the output matrix, Q, is set 
equal to the input matrix, COV , 
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SUBROUTINE CRASH 


Calling Sequence: 


CALL CRASH 


Purpose: 


Common Blocks Required; 


Subroutines Required; 


Subroutine CRASH determines the 
time of closest approach to the 
target planet. 

CNTRL, INPUT, INTVAR, PLNET, 
SAVE, STATE 

DVMAG, INTERP, PLANET 


Input/Output 




V ■ ■ 



I/O 

SYMBOLIC 

NAME 

PROGRAM 
DIMENSION- - 

COMMON 

BLOCK 

DEFINITION 

n 

JC 

1 

1 L . . . 1 

CNTRL(7) 

Central planet number 

I 

JT 

1 

INPUT(1031) 

Target planet number 

I 

KCA 

1 

CNTRL(ll) 

Counter used in the 
closest approach 
iteration 

H 

KHIGH 

1 

INPUT(1079) 

If set to 1. Subroutine 
will determine the time 
of apoapis. 

I 

RSAV 

1 

SAVE (41) 

Flight path angle on 
last step 

B 

T 

1 

STATE(IO) 

Current time since 
state epoch 

O 

TCA 

1 

STATE (29) 

Time of closest 
approach 

I 

X 

6 

‘ 

STATE (1) 

Current spacecraft 
position and velocity 
vectors 

■ 

XP 

6, 12 

PLNET(l) 

Planet's position and 





• velocity vectors. 
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Theory: 


The time of closest approach is determined by an iterative process using the flight 
path angle as the dependent variable and time as the independent variable. The 
time is adjusted in order to drive the flight path angle to zero. A Newtpn-Raphson 
type iteration is employed to determine the time. The sine of the flight path angle 
at time, t, is determined from : 



( 1 ) 


w here X and V are the position and velocity vectors at time t determined from 
subroutine INTERP. 


The derivative of this sine with respect to time is numerically determined by 
calculating the sine at two times as described in equation (1) and dividing their 
difference by the difference in time as, 

DERIV = (R2 - R3) / DELT (2) 


where R2 is the sine of the flight path angle at T + DELT. The change in time to 
drive the sine of the flight path angle to zero is calculated from: 

DEL = R3 / DERIV (3) 

The sine of the flight path angle is determined at time T = DEL. The iteration is 
assumed to converge if the flight path angle is within a small tolerance around zero. 
If not, the derivative is recalculated in equation (2) with T = T2 + DEL and the 
process repeated. A limit of 20 iterations are allowed. A limit to the size of the 
step, DEL, is also employed to help assure convergence. 


Description: 

The time of closest approach is determined through a double iteration using this 
routine along with subroutines INTERP and TIMEC. There is an iteration inside 
subroutine CRASH to determine the time of closest approach using subroutine 
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INTERP. In this iteration the spacecraft’s state at time, T, is determined 
using the interpolation logic in subroutine INTERP. T is adjusted until the 
Spacecraft’s flight path angle is within a specified tolerance. A Newton -Raphson 
type iteration discussed in the theory is employed to determine this time. The 
second iteration loop is associated with subroutines TIMEC and CRASH. 

The time of closest approach is transfered to TIMEC, The time of closest approach 
is considered a discontinuLty time in subroutine TIMEC. Thus, if the current 
time is greater than the time of closest approach,the state is restored to the 
values at the last step and the compute interval is adjusted to integrate to the 
time of closest approach. The time of closest approach is recalculated in 
subroutine CRASH at the discontinuLty time. If the new time of closest approach 
is within a tolerance of the last time of closest approach, it is assumed that 
convergence has been achieved on the time of closest approach. If not, the new 
time of closest approach is used as a discontinuity time in TIMEC and the iteration 
repeated. The iteration between TIMEC and CRASH usually converges in one or 
two iterations. This iteration would not be necessary if the interpolation logic 
exactly matched the numerical integrator. KCA is a counter used to determine 
the number of TIMEC -CRASH iterations. A limit of 7 iterations are allowed. 
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SUBROUTINE CRASH 
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SUBROUTINE CROSS 


Calling Sequence: 

Purpose: 

Common Blocks Required: 
Subroutines Required: 


CALL CROSS (X, Y, Z) 

This subroutine calculates the vector 
cross product 

None 

None 


Inputs / Outputs 


SYMBOLIC COMMON 

I/O NAME DIMENSION BLOCK DEFINITION 

I 

X 

3 

Calling 
Argument . 

Input vector X 

I 

Y 

3 

Calling 

Argument 

Input vector Y 

O 

Z 

3 

Calling 

Argument 

Output cross product 


Description: 

The vector cross product is determined by this subroutine. The cross product is 
determined by 










SUBROUTINE DATE 


Calling Sequence: CALL DATE (YEAR, DAY, QM, HR, DJO) 

Purpose: DATE converts a calendar date to its Julian 

date. 

Common Blocks Required: None 

Subroutines Required: None 


Input / Output 


I/O 

SYMBOLIC 

NAME 

DIMENSION 

COMMON 

BLOCK 

DEFINITION 

I 

DAY 

1 

CALUNG 

OPERAND 

Day of the month 

o 

DJO 

1 

CALLING 

OPERAND 

Julian date 

I 

HR 

1 

CALLING 

OPERAND 

Hour of the day 

I 

QM 

1 

CALLING 

OPERAND 

Month 

I 

YEAR 

1 

CALLING 

OPERAND 

Year 


Description: 

Date calculates the number of days since 1900 and adds it to the modified Julian date 
of 1900 to get the actual modified Julian date. 
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SUBROUTINE DOPLER 


Calling Sequence: CALL DOPLER 

Purpose: This subroutine determines the velocity away from the 

visible tracking sites and determines the doppler frequency 
shift. 

Common Blocks Required: CNTRL, CONST, INPUT, OBSIT, STATE 

Subroutines Required: DVMAG, M50EPM, ROTATE, ORBIT, INTEG, UPDATE 


Input / Output 


I/O 

SYMBOLIC 

NAME 

DIMENSION 

COMMON 

BLOCK 

DEFINITION 

I 

CARl 

1 


Spacecraft’s primary carrier frequency 

I 

CAR2 

1 

INPUT(409) 

Spacecraft’s secondary carrier 
frequency 

I 

DJO 

1 


Modified Julian date of 
state epoch 

I 

DJI 

1 


Modified Julian date of liftoff epoch 

I 

DOBS 

10,2 

— 

Velocity of the tracking stations due to 
the Earth’s rotation 

I 

DX 

3 


Spacecraft’s velocity vector 

I 

HR 

1 


Hour of state epoch 

I 

KWTDOP 

1 


Doppler first pass flag. Zero on 
first pass 

I 

OBSLAT 

10 

INPUT(480) 

Latitudes of the tracking stations 

I 

OESLON 

10 


Longitudes of the tracking stations 

I 

SEC 

1 


Seconds of state epoch 

I 

T 

1 

STATE(IO) 

Seconds since state epoch 

I 

TBO 

1 


Burnout time of engine 1. 

I 

THRUST 

1 

— 

Engine thrust 
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I/O 


SYMBOUC COMMON 

NAJ\IE DIMENSION BLOCE DEFINITION 





:l!i 



Ignition time of ens^ne 1. 


acecraft’s position vector 



Description: 

The spacecraft's velocity with respect to a rotating Earth must be determined in order 
to calculate the velocity away from a tracking station. Subroutine M50EPM is used to 
determine the transformation to the Earth equator and Greenwich. The vector from the 
observation site to the spacecraft is established from 

XOT = XE - XOBS (1) 

where XE is the position vector of the spacecraft in the Earth 
equator and Greenwich, and 

XOBS is the vector to the tracking site obtained from 
OBSIT conunon. 

The spacecraft is visible from the tracking station if 

XOB • XOB >0 (2) 


On the first pass through this subroutine (KWTDOP == 0), KSTAT (I), where I 
corresponds to the tracking station, is set to one if the spacecraft is visible. This 
array is used to output the information only for the visible tracking stations. The 
velocity relative to the tracking station is obtained from 

V = DXE - d'OBS . (3) 
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where DXE 


is the velocity of the spacecraft in the Earth equator and 
Greenwich, and 

DOBS is the velocity of the tracking station from OBSIT common* 

Note: The z-component of V is equal to z-component of DXE since 
the z-component of DOBS is zero. 

Finally, the velocity away from the tracking station is determined from 

ROOT = (V • 2^B) / li^Bl (4) 

and the doppler shift is obtained from 

DOP = (CAR2^ - CARl^ ) RDOT / C (5) 

where CARl and CAR2 are the spacecraft carrier frequencies, and 
C is the velocity of light 

The spacecraft's velocity away from each of the visible tracldng stations and the 
corresponding doppler shift along with the current thrust and mass are output on 
unit 6. The KWTDOP flag is used to control the writing of the heading for the 
writes. 


148 



SUBROUTINE DOPLER 


ENTER 


— { RETUR] 


Establish output time TM, TI and zero, 
out KSTAT array 


KWTDOP 


Output part of doppler heading 


Calculate transformation matrix to 
Earth equator and Greenwich using 
M50EPM and rotate using ROTATE 


Increment tracking stations 


Determine position relative to station 
using equation (1) 


Determine if spacecraft is visible from equation(2) 


visible 


Determine velocity from tracking station using 
equations (3) and (4) and doppler shift from (5) 


''es , .. \ no 

Q more stations >— 
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FUNCTION DOT 


Calling Sequence: 

Purpose: 

Common Blocks Required: 
Subroutines Required: 


Z = DOT (X, Y) 

This function performs the 
vector dot product 

None 

None 


Input / Output 



SYMBOLIC COMMON 

I/O NAME DIMENSION BLOCK DEFINITION 

O 

DOT 

1 

FUNCTION 

NAME 

Vector dot product 

m 

X 

3 

CALLING 

OPERAND 

Input vector X 

I 

Y 

3 

CALLING 

OPERAND 

Input vector Y 


Description: 


The vector dot product is obtained from 

DOT = X^Y^+X2Y2^X3Y3 
where 

X., Y. i = 1,3 are the components of the X and Y vectors, respectively 
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SUBROUTINE DRAG 


Calling Sequence: 


CALL DRAG 


Purpose: 


This subroutine calculates the spacecraft 
acceleration due to atmospheric drag. 


Common Blocks Required: 


CNTRL, CONST, GRAVTY. INPUT, 
PERT, PLNET. 


Subroutines Required: 


ATMO, VNORM. 


Inputs/ Outputs 


I/O 

SYMBOLIC 

NAME. 

DIMENSION 

COMMON 

BLOCK 

DEFINITION 

I 

DST 

12 

■ 

PLNET (73) 

The JC element is the 
spacecraft distance from the 
central planet. 

I 

JC 

1 

CNTRL (07) 

Central planet number 

I 

KATMOS 

1 

INPUT (1097) 

Drag flag 

I 

POS 

3 

GRAVTY (1) 

Position vector from central 
planet. 

I/O 

RCART 

3 

PERT (1) 

Spacecraft perturbing 
acceleration 


RE 

12 

CONST (17) 

Equatorial radius of the 
planet 


Description: 

This subroutine determines the acceleration due to atmospheric drag. The 
magnitude of the acceleration is obtained from: 

a = i p Cjj (10)® 
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where p is the density in g/CM 

V is spacecraft velocity in km/sec 

C is the drag-area-mass coefficient 
D 


g 

and the multiplier (10) is required to convert units. The acceleration is 
applied along the velocity vector. The density is obtained from the function 
ATMOS while the drag coefficient is set at ,03. 
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FUNCTION DVMAG 


Calling Sequence: Y = DVMAG (X) 

Purpose: This function determines the magnitude of 

an input vector 

Common Blocks Required: None 

Subroutines Required: None 


Input / Output 


1 

I/O 

SYMBOLIC 

NAME 

0 

DVMAG 




COMMON 

BLOCK 

DEFINITION 

FUNCTION 

NAME 

Magnitude of the input vector 

CALLING 

OPERAND 

Input vector 


Description; 

The magnitude of a vector is determined from 
DVMAG = 

where 

X. i= 1, 3 are the components of the input vector X 
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SUBROUTINE EQNS 


Calling Sequence: 


CALL EQNS 


Purpose: 


This subroutine calculates the derivatives 
of the variables being numerically integrated. 


Common Blocks Required: CNTRL, CONST, GRAVTY, INPUT, INTVAR, INTVRX, 

PERT, STATE. 


Subroutines Required: 


ACCEL, AVEQNS, ORBIT, GRAY 


Input / Output 


I/O 

SYMBOLIC 

NAME 

PROGRAM 

DIMENSION 

COMMON 

BLOCK 

DEFINITION 

I 

DJO 

1 


Julian date of state epoch 

I 

GM 

12 


Gravitational constants 

m 

KP 

12 

BUSuSni 

Planets in the system 


METH 

1 


Trajectory propagator indicator 

o 

RATES 

6 


Derivatives of integration 
variables 

H|H 

RCART 

3 


Disturbing acceleration 

I 

X 

1 


Current independent variable 

I 

Y 

6 

i^SBH 

Current dependent or 
integration variables 

I 

UJT 

1 


Current Julian date 
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Theory: 

This subroutine calculates the derivatives of the integration variables at the 
current time when propagating the state using any of the following trajectory 
propagation methods, 

1. Cowell 

2 . Encke 

3. mCE/True 

4. NICE/Mean 

5. NICE/e cos Cl), e sinct>. 

The equations which define the derivatives of each of these methods are presented 
below. 


Cowell 

Let the origin of the cartesian coordinate system be located at the central planet 
of mass M. The disturbing planets are denoted by M^, and the spacecraft by m. 
Then the perturbing acceleration becomes. 


-► 

R 





+ 





( 1 ) 


where 

X' is the vector from the central planet to the disturbing planet, 
X is the vector from the central planet to the spacecraft, 
is the acceleration due to solar pressure, 

is the acceleration due to engine thrusting, 

is the acceleration due to an oblate planet, and 

is IX' -XI 

The total acceleration acting on the spacecraft is the sum of the perturbing 
acceleration and the acceleration due to the central planet; thus the total 
acceleration becomes, 

GMX 


a. 


a 


^SP 

T 

OB 

P 


a = 


+ R 


( 2 ) 
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The above vector equation denotes the acceleration, which is numerically integrated 
to obtain the velocity. The velocity is numerically integrated to obtain the position. 


Encke’s Method 

In this method an attempt is made to utilize the knowledge that the motion is very 
nearly two-body with respect to the central planet. Thus, only the motion which 
deviates from the two-body motion is integrated. This motion is added to the two- 
body motion to obtain the position and velocity of the spacecraft. 

Let be the position vector of the spacecraft obtained from two-body motion, 
and ^ be a vector describing the deviation from the two-body orbit. The position 
vector of the spacecraft is then obtained by, 

X - + I . (3) 


The acceleration of the disturbing vector, f , is obtained as follows: 
If the quantity f is defined as 

f = 1 - (1 + 2q)’’^^^ 


where 



then the disturbing acceleration is 


•4 


^ - 



(fX -?) +R 


(4) 

(5) 


( 6 ) 


where S is obtained from Equation (1). This vector is numerically integrated 
to obtain the deviation from the two-body orbit. The reference orbit is updated 
(rectified) whenever 




> 0.001 


(7) 
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These equations are much more complicated than CowelPs equations. Also, to 
obtain the position along the reference orbit, one must calculate the true anomaly 
from the mean anomaly. This involves an iterative solution and is time consuming. 

NICE Methods 

The three NICE methods involve the numerical integration of the classical orbital 
elements to obtain the orbit of the spacecraft as a function of time. 

The orbital elements integrated are, 

1. semilatus rectum, p 

2. eccentricity, e 

3. true or mean anomaly, f or M 

4. argument of perigee, u> 

5 . inclination, i 

6. longitude of ascending node, ft 
or, alternately 

1. p 

2. e cos oj 

3 . e sin (o 

4. f + oi 

5. i 

6 . n 

The derivatives of the above quantities are determined and numerically integrated 
to determine the instantaneous orbital elements. The derivatives of the orbital 
elements are derived in many texts and reports and only the results will be presented 
here. The derivatives of the orbital elements are 
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(l-f) sinucotl) w} 

^ = r sin u W / ^sin i VTipj 
; = f — - — coa u 1 W 

‘ W ) 


y/iTi . ± .fX 




COS f R - sin f 


(“i) 


M 


= n +- 


fpil±£L H. COS f 2 r ^ ^ sin f 


)' 




(- 


(e sino>) = 



{ 

"/ > 

r 1 

/"a 

<- cos A*- R + 

1(1 +- 

sin u + e — 

1 M 

L\ pJ 

^ Pj 


+ — e cosw sin u cot i W 
P 


(e cos ) = ^/^ jsin u R + cos u + e sin (oj 


+ e — sin u cot i W 
P 


u = “2 " Vm" sin u cot i W 


where n is the mean motion 

A* is the gravitational potential 
u = o>+ f 
r is the radius 

R, C, W are the perturbing accelerations 


The perturbing accelerations are written with respect to the orbit plane. They are 
in the radial direction, circumferential direction and normal to the orbit plane. These 
accelerations are obtained from the perturbing acceleration derived in Equation (1) by 
rotation to the orbit plane, as 


for e 
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( 9 ) 


where 



cos n cos u - sin H sin u cos i 
cos n sin u - sin ft cos u cos i 
sin n sin i 


sin ft cos u + cos O. sin u cos i 
- sin ft sin u + cos O cos u cos i 
-cos n sin i 


sin u sin i 
cos u sin i 
cos i 


( 10 ) 


The difference between the NICE/Mean and NICE/True methods is that the NICE/Mean 
method uses the mean anomaly equation of (8) while in the NICE/TRUE method, the true { 
anomaly is used. When the last of the NICE methods are used, the last 3 equations of 
equation (8) are used instead of the equations for 4 t u) f • 


Description: 

The derivatives of the integration variables are as described in the above equations* 
The set of equations used is determined by the METH flag as follows: . 


METH 


1. Cowell 

2. Encke 

3. NICE/True 
4* NICE/Mean 

7, NICE/ e sin 61, e cos6>. 


The current set of integration variables and the independent variable, time, is 
brought into the subroutine via INTVAR common. This common block is initiated in 
subroutine INTEG. The Encke reference orbit is input via PERT common. The 
disturbing acceleration is calculated in subroutine ACCEL and transferred to EQNS 
via PERT common. 

The logic flow consists of testing the METH flag to determine which set of equations 
to calculate. The derivatives are determined in a straightforward manner using 
the equations described in the theory. 
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SUBROUTINE EONS 
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© 


METH 


=5 or 8 


other 


Set up sines and cosines 
of orbital elements 


Call ORBIT to determine 
osition of spacecraft 


Call ACCEL to get 
disturbing acceleration 


Call AVEQNS 
for 

averaging . 


RETURN 



Determine argument of 
perigee, eccentricity 
and true anomaly 
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SUBROUTINE FIELD2 


Calling Sequence: CALL FIELD2 

Purpose; FIELD2 uses the chain rule to calculate the partial 

derivatives of the gravitational potential. 

Common Blocks Required: CNTRL, CONST, FIELDM, GRAVTY, INPUT, 

INTVAR, PERT, STATE 

Subroutines Required: M50JPM, ROTATE, SPNM 

Reference: Gulick, L. J, , ”A Comparison of Methods for Computing 

Gravitational Potential Derivative,” ESSA TECHNICAL 
REPORT C & GS 40, 1970. 

Input/Output 


I/O 

SYMBOLIC 

NAME 

DIMENSION 

COMMON 

BLOCK 

DEFINITION 


1 

CC 

16,17 

FIELDM(17) 

Tesseral coefficients 

I 

GM 

12 

CONST(5) 

Gravitational constants 

I i 

JC 

mm 

CNTRL(7) 

Central planet number 


KVAR 

1 

INPUT(1096) 

Gradient flag 


NMOD 

1 

FIELDM(298) 

Number of zonals 

— 

POS 

3 

— 

GRAVTY(1) 

i Position of S/C 

I 

RE 

12 

CONST(17) 

Equatorial radii 

I 

RCART 



3 

. . 

PERT(l) 

i Acceleration of S/C 

I 

SELNEQ 

3,3 

FIELDM(289) 

Transformation matrix 


TIME 

1 

INTVAR(l) 

' Time since epoch 
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I 

UJT 

1 

STATE(32) 

Modified Julian date 

I 

WP 

12 

CONST(29) 

Planet spin rates 

I 

XT 

16 

nELDM(l) 

Zonal coefficients 


Theory: 


The gravitational potential of the central planet in terms of spherical harmonics may 
be expressed as 


V 


GM 

r 




m=^ 




(C ^ cos (mX) 
n 


« 531 . , . . 

+ S sin (m X) 
n 


where GM is the gravitational constant, R is the equatorial radius of the central 

planet C ^ and S ^ are the coefficients representing the mass distribution, 

^ * n n 

p ^ (sin^) is the associated Legendre polynomial of degree n and order m, and 
n 

p X, and r are the body-fixed latitude, longitude, and radius of the point where the 
disturbing force is to be evaluated. 
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The force due to this potential is the partial derivative of V with respect to inertial 
cartesian coordinates. One method of evaluating this force is by using the chain 
rule to evaluate the derivatives with respect to the body cartesian coordinates and 
then rotating to the integration (inertial) frame. This chain rule method incorporates 
the following recursion relationship for ^ (x) 


d P 
~dx 


m 

n 


mxP (x) 
n ' 


1-x^ 


^m+1 , ^ 
P (X) 
n 

(l-x2)^ 


See Gulick (referenced above) for the derivation of this relationship and for further notes 
on the chain rule method. 


Description: 

The main purpose of HELD2 is to calculate the partial derivatives of the gravitational 
potential. These derivatives are used to evaluate the acceleration of the S/C at any 
given position. To use FIELD2 for this purpose, KVAR should be set to zero. 

FIELD2 will calculate the acceleration of the S/C due to the central planet using the 
input field (CC and XJ), the position of the S/C^and the time. The resulting accelera- 
tion vector will be rotated to the integration frame using the transformation matrix 
SELNEQ, and then added to RCART. 

In addition to this function, FIELD2 may also be used to calculate the gradient of the 
force field and the partial derivatives of the force with respect to the spherical har- 
monic coefficients of the field. To use this mode of FIEXtD2 , KVAR must be set to 
one, in which case the acceleration (described above) will still be output, along with 
the matrices D2VDX2 and DFDCX. 
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The symmetric matrix d2 VDX2 contains the second partials of the potential with 
respect to the body-centered cartesian coordinates. For a description of the use of 
this Jacobian matrix in linear variational theory, see subroutine SHIMMY. 


The matrix DFDCX contains the explicit partial derivatives of the force with respect 

to the NB different harmonic coefficients to be estimated. The maximum value of 

NB is 100. The input vector DC determines which coefficients are to be studied, 

th . . -fh 

and must be set up in the following way. The i element of DC indicates the i co- 

til 

efficient to be studied, and DC(i) must be equal to the position of the i coefficient 
in FIELDM common. The order of the values in DC is carucial since the derivatives 


are calculated in the same order as the coefficients are used in FIELD2. This order 

is ((C . S . 1 = O. i), i=l, NMOD). The element C.. occupies position 16 x j + i of 
ij ij 

FIELDM common and occupies position (i+1) x 16 + j. Thus, if 

C c S S , S are the coefficients to be studied, then NB = 8 and DC would 
32’ 41* 21* 32* 33 

be 2, 49, 34, 19, 35, 66, 67, 20 since the calculations would be made in the order 

r S C C C . S , S andC,^. If were to be studied also,then 
^20* ^21’ '‘^22* '''^31* '"^32* 32’ 33 41 33 

NB would be 9 and 51 would have to be inserted between 66 and 67 in the vector IX. 
The order that the derivatives are output in DFDCX is the same as the order in DC. 
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SUBROUTINE FIND 


Calling Sequence: CALL FIND (IDSAT, ISET, $) 

Purpose: This subroutine reads a file from the GTDS 

24“hour hold file to retrieve the state from 
the GTDS program. 

Common Blocks Required: ELMNT 

Subroutines Required: None 


Input / Output 


I/O 

SYMBOLIC 

NAME 

DIMENSION 

COMMON 

BLOCK 

DEFINITION 

I 

IDSAT 

1 

CALLING 

OPERAND 

Satellite identification number 

I 

ISET 

1 

CALLING 

OPERAND 

Element set number of 
desired data 

0 

$ 



Statement number to transfer 
to if error return. 


Description: 

This subroutine is used to retrieve the state and covariance matrix from the 24-hour 
hold file written by the GTDS program. The data is read from unit 26 using a direct 
read. The record number used in the direct read is determined from the element set 
number brought in via the argument list and variables defining the 24-hour hold file 
obtained from a read to unit 1. 

The data is read into a working array and later transferred to the SET array of ELMNT 
common, ELMNT common is used to transfer the data to other subroutines in MAESTRO. 
The SET array is defined as follows: 

Location Definition 

1 Date of state in year, month and day 

written as YYMMDD, 

2 Time of state in hours, minutes and seconds 

written as HHMMSS.SSS. 
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Location 


Definition 


3-5 


6-8 


9-14 

15-35 

36 

37 

38 

39 

40 

41 

42 

43 

44 


Cartesian position vector. 

Cartesian velocity vector. 

Keplerian orbital elements. 

Upper triangle of the state covariance 
matrix. 

Start time of fitted data, (year, month, day) 
Start time of fitted data, (hour, minute, second) 
End time of fitted data, (year, month, day) 

End time of fitted data, (hour, minute, second) 
Root mean square of fit 
Satellite identification number 
Reference coordinate system of state 
Central body indicator 
Element set number 
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SUBROUTINE FDCATG 


Calling Sequence; 


CALL FDCATG 


Purpose; 


FDCATG controls the fixed-attitude, guidance, logic. 


Common Blocks Required: CNTRL, CONST, INPUT, MCCOM, STATE 


Subroutines Required: 
Input / Output 


FOWARD, SENSO, POST 


SYMBOLIC 
I/O NAME 


DIMENSION 


COMMON 

BLOCK 


DEFINITION 


C0NST(15) 


INPUT(4) 


INPUT(38) 


INPUT(47) 


INPUT{48) 


INPUT(441) 



CNTRL(7) Central body number 


3 2 

GM of the Moon (km / sec ) 


Trajectory stop tine (sec) 


Initial weight of the spacecraft (kg) 


Central value of right 
ascension, (deg) 


Central value of declination (deg) 


Specific impulse of the midcourse 
engine (sec) 


INPUT(443) Weight of retro-fuel (kg) 


INPUT (4 73) 1 Drop -weight of retro (kg) 


INPUT(474) Step-size for attitude (deg) 


Midcourse velocity step (km/sec) 


Trajectory stop- type key 


Number of right ascension steps 


Number of declination steps 


Logical unit number tor scope 
output 


Number of velocity steps (negative 




























































SYMBOLIC COMMON 

I/O NAME DIMENSION BLOCK DEFINITION 


0 

DV 

3 


Midcourse velocity impulse (km/sec ^ 

I 

TMCS 

1 


Midcourse time (sec after 
anchor epoch) 

I 

DVRET 

1 


Retro velocity impulse (km/sec) - 

I 

DJDIF 

1 


Anchor-launch epoch 
difference (sec) 

I 

WTF 

1 


Weight after midcourse burn (kg) 

I 

— 

PSID 

10 

MCCOM(80) 

Desired end constraints, except 
PSID (7) is the central value of 
impulse magnitude (km/sec) 

I 

PSI 

10 


Constraint error vector 

o 

IR 

1 


Return key for SENSO 

o 

KDV 

1 


Counter for delta-V steps taken 

o 

ICB 

1 

^BBBB 

Midcourse central body number 

l—( 

X 

6 

BBBBfl 

State vector (km, km/sec) 

I 

T 

1 

WBBBI 

Time (sec) 

I 

ATT 

3 

IS^BBfl 

Unit thrust ( AV) vector (equator, 
equinox of 1950.0) 
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De scrip tion: 


FIXATG varies the velocity impulse magnitude to scan the end conditions achievable 
with a midcourse burn of fixed thrust direction. The direction may also be systematically 
varied to ascertain the effects of attitude errors. FIXATG is called by PROTO within 
a loop in which midcourse execution (ignition) time is varying, but, for any particular 
entry, ignition time is fixed. The anchor vector state is first propagated to midcourse ' 
time by a call to FOWARD. The pre-midcourse state is saved in XMC. SENSO is then 
called to propagate the state through the burn and on to the target, then to compute end 
conditions (TARGET) from the arrival state. The following quantities are printed out 
at each step of the scan. 


DVM 

RTA 

DEC 

RCA 

INC 

TFLT 

ROPA 

FCP 

TCF 


Midcourse velocity impulse magnitude (m/ sec) 

Right ascension of the thrust (deg) 

Declination of the thrust (deg) 

Radius at closest approach (km) 

Inclination (deg) 

Time of flight to closest approach (houi's past launch) 
Radius at opposite apsis (km, opposite RCA after retro) 
Fuel to circularize at periapsis (kg) 

Total correction fuel (kg) 


Computation of the last three quantities assumes variable attitude for the retro 
and trim maneuvers. 
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SUBROUTINE FIXATG 
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SUBROUTINE TOWARD 


Calling Sequence: 
Purpose: 


Common Blocks Required: 


Subroutines Required: 


CALL TOWARD (KSET) 


This subroutine establishes certain constants 
to propagate the state forward in time. Calls 
are made to subroutines which propagate the 
state 

CNTRL, CONST, INPUT, INTVAR, SAVE, 
SHAD, STATE 

INTEG, MULCON, ORBIT, OUTPUT, PLANET, 
PRINT, TIMEC, TRMN 


Input/Output 


I/O 

SYMBOLIC 

NAME 

DIMENSION 

COMMON 1 
BLOCK 1 

DEFINITION 

o 

DSAD 

3,5 


Array of back distances to the 
shadow cone 

I/O 

DX 

3 

■ni 

Spacecraft's velocity vector 

I 

EJO 

1 


Ephemeris date corresponding to 
state epoch 

o 

ELM 

6 

STATE(14) 

Osculating orbital elements to be 
integrated 

o 

KDIS 

1 


Discontinuity flag 

o 

K FIRST 

1 


First pass flag 

o 

KHALT 

1 

CNTRL(6) 

Error return flag 

I 

KMETH 

3 

INPUT(1036) 

Trajectory propagation 
indicator table 

I 

KOUT 

1 

INPUT(1030) 

Output frequency flag 

I 

KSET 

1 

Calling 

Operand 

If non-zero, more constants 
are initialized 

0 

RSAV 

1 


Last flight path angle used in closest 
approach calculation. 

I 

T 

1 


Seconds since state epoch 

o 

TCA 

1 

STATE(29) 

Time of closest approach 
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SYMBOLIC COMMON 

I/O NATvIE DIMENSION BLOCK DEFINITION 


O 

TOUTL 

1 


Last output time 

0 

TSAV 

1 


Time of saved state used to 
restore in TIMEC 

o 

TSAD 

3 


Times corresponding to the shadow 
distances in PSAD 

I/O 

X 

3 


Initial position vector 


Description: 

This subroutine sets up constants to propagate the state in time, establishes the 
integration variables and calls the proper subroutine to propagate the state. The 
KHALT and KWTDOP flags are initialized to zero and METH set to KMETH (1), If 
the KSET flag is non-zero, the following constants are initialized: 

1. TOUTL = T 

2. DSAD and TSAD arrays to zero 

3. KNTRL (1-6 and 8-10) to zero 

4. KDIS and KFIRST to one 

5. TCA to a large number 

The integration array is established according to the trajectory propagation technique* 

If Cowell is to be used, METH-l, the position and velocity arrays in STATE are used as 
the integration variables. However, if any other method is used, the ELM array is set to 
the integration variables. Subroutines ORBIT and TRMN are used to establish the 
proper set of orbital elements when any of the "NICE" methods or averaging is used. 

After the integration array is established, subroutine INTEG is used to determine 
initial derivatives of the state. The initial state is output using subroutine OUTPUT if 
the output frequency flag is greater than 0. Finally, the state is propagated in time 
using subroutine TIMEC when numerical integration is desired at MULCON when the 
multi-conic algorithm is used. 
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SUBROUTINE GETTAP 


Calling Sequence: CALL GETTAP 

Purpose: This subroutine reads the ephemeris tape and sets up 

CETBL3 common for use in subroutine READE 

Common Blocks Required; CETBL2, CETBL3, CETBL9, CNTRL 

Subroutines Required: None 


Input / Output 


I/O 

SYMBOLIC 

NAME 

DIMENSION 

COMMON 

BLOCK 

DEFINITION 

0 

ICW 

1 


Flag indicating status of common 
block CETBL3 

o 

lERRl 

1 


Error flag 

o 

JDIF 

1 

ESSflRHl 

Time from beginning of ephemeric blocl 
of data to current time 

1 

JDl 

1 


Reference ephemeris Julian date 

I 

KREAD 

1 


Ephemeris tape read flag 

o 

NUT 

204 


Nutation output 

o 

TABS 

829 

CETBL3(1) 

Planetary and Lunar ephemeris raw 
data from tape 

I 

TDAY 

1 

lESHHH 

Time from reference ephemeris 
Julian date 


Description: 

This subroutine reads the ephemeris tape and sets up the TABS and NUT arrays for use 
in subroutine,. READE. If the KREAD flag is zero, these arrays are already established 
and no read is performed. Most of the logic in this subroutine is involved in searching 
through the ephemeris tape to find the desired record. The time of the desired ephemeris 
data, JDP, is determined from the sum of TDAY and JDl. The next record of the 
ephemeris tape is read to establish its current time, TAB3(1). The difference between 
the current time and desired time is determined. If the difference is negative the tape 
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must be backspaced, while the tape is advanced when the difference is positive. The 
number of records to advance or backspace the tape is determined by dividing the 
difference by eight, since eight days of data are stored in each record. When the 
proper record is determined,JDIF and ICW are set and the subroutine terminates. 
Another version of GETTAP is available for use at Goddard Space Flight Center. This 
version uses the ephemeris data stored in disk form and the direct read feature is 
used to retrieve the data. 
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SUBROUTINE GETTAP 



Skip forward 

JRECL-1 
seconds ^ 


f enter) 


JDP = 

JDl + TDAY 




KREAD 
if ^ 


Read tape to obtain TAB3(1) , 
the time corresponding to the 
current second on the tape and 
calculate 

JDIF = JDP - TAB3(1) 


' 

1 * 

! 

1 

L 

JRECL = 
JDlF/8 





= 0 


© 



f 

JDIF = JDP - TAB3(1) 

> 

t 


0 



JRECG 

JDlF/8+2 



? 

f 

Back space 
ephemeris tape 
records 

H 

HI 


RETURN 
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SUBROUTINE GRAY 


Calling Sequence: CALL GRAY 

Purpose: GRAY calculates the disturbing accelerations 

due to external bodies. 

Common Blocks Required: CNTRL, CONOT, GRAVTY, 

INPUT, INTYAR, PLNET, PERT 

Subroutines Required: DYMAG 


Input/Oulput 


I/O 

SYMBOLIC 

NAME 

PROGRAM 

DIMENSION 

COMMON 

BLOCK 

DEFINITION 

o 

DST 

12 


Distance from central 
planet to other planets 

I 

GM 

12 


Planet gravitational 
constants 

I 

JC 

1 


Central planet number 

I 

JMN 

1 


Ephemeris flag 

I 

KP 

12 


Planets in system 

I 

METH 

1 


Method of integration 

mu 

POS 

3 


Spacecraft position 

r/r» 

1/ 

RATES 

6 

INTVAR(8) 

Derivatives of integra- 
tion variables 

SSilllll 

RCART 

3 

HiSfflilli 

Accelerations of S/C 

I 

XP 

■RHHI 

IffiRSH 

Positions and velocities 
of planets in system 
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Theory: 

The acceleration of a body in space due to the presence of another body in space 
is given by 

GM R 

^ = 1113 - 

where GM is the gravitational constant and R is the vector from the first body 
to the second body. 


The net acceleration of a S/C with respect to a central planet is given by the 
difference between the spacecraft’s acceleration and the planers acceleration . 


A , - GM. 
s/c . 3 


R. ~ R / 
^ ^ 
■ ’./o 


R. 

I^jl 


where j represents the jth planet, S/C represents spacecraft^and all vectors are 
with respect to the central planet. 


Description; 

GRAV calculates the disturbing acceleration on the spacecraft due to all external 
planets in the system. The planets in the system are determined by the vector KP, 
i.e. , if KP(i) is not equal to zero, then the net acceleration due to Planet i will be 
calculated. The accelerations are added and stored in the vector RCART. 

If the moon is the central planet, and osculating elements are used for the moon 
(JMN = 4), then the net acceleration on the spacecraft due to the Sun is the 
acceleration on the S/C due to the Sun minus the acceleration on the Earth due to 
the Sun. 

If Cowell's method of integration is to be used, then the acceleration due to the 
central planet is added to the other acceleration and the total is loaded into 
RATES (4-6) for use in the integration step. 
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^BROUTINE GRAY 
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SUBROUTINE HSDTHK 


This subroutine determines the tbmst and weight character- 
istics of the midcourse motor used on the KAE-B spacecraft. This 
subroutine was supplied by Hamilton-Standard Corp. , who is the 
builder of the motor. Any questions concerning this subroutine 
should be directed to Mr, Charles Newman of NASA Goddard Space 
Flight Center. 
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SUBROUTINE INPUTF 


Calling Sequence: CALL INPUTF 

Purpose: This subroutine reads the input data cards and 

stores the information in the proper common 
blocks. 


Common Block Required: FIELDM, INPUT, INPUTS 

Subroutines Required; OBSET 


Input / Output 


I/O 

SYMBOLIC 

NAME 

DIMENSION 

COMMON 

BLOCK 

DEFINITION 

o 

< 

1000 

INPUT(l) 

Real part of the input 
array 

o 

AS 

1000 

INPUTS(l) 

Real part of the saved 
input array 

o 

C 

16,16 


Cosine coefficient of spherical 
harmonic potential term. 

o 

KMOD 

16, 16 

FIELDM(525) 

Array of flags used to indicate 
if a harmonic is input 

o 

KOPT 

100 


Integer portion of the input 
array 

0 

KOPTS 

100 


Integer portion of the saved input 
array 

0 

MMOD 

1 

FIELDM(514) 

Number of tes serais used 

I 

MODLEM 

1 

INPUT{1035) 

Flag used to determine the type 
of gravitational field. 

o 

NMMOD 

1 

FIELD(515) 

Highest zonal for which a 
tes serai is desired 

o 

NMON 

1 

ISSBHHI 

Number of zonals used 

o 

S 

16^16 

HyiSSHili 

Sine coefficient of the spherical 
harmonic potential term 
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Description: 


This subroutine reads the input data cards and establishes the working input arrays. 
These arrays consist of the A and the KOPT arrays of INPUT common. These arrays 
are set equal to the saved input arrays of INPUTS common before the case is initiated. 
The saved input arrays consist of the accumulation of all previous input including inputs 
from previous cases. Thus, only the inputs which differ from case to case need be 
input. The cases are separated by a blank card. 

The saved input array is initialized to preset values in the BLOCKDATA subroutine. 
However, some of the values of preset inputs are dependent on the program MODE 
flag input via location 1044. Hence, logic is incorporated in this subroutine to preset 
those inputs dependent on the program mode. The inputs preset and their respective 
values are presented in Table I. 

A special set of inputs are also included to set up the gravitational field. These inputs 
are designated by input locations greater than 2000. The data cards with input locations 
in the 2000 *s must be placed after the normal 1000 series inputs. 

The inputs for the gravity field can either define the entire field, modify one of the 
preset fields, or use the field set up in the previous case. The MODLEM flag is used 
to determine the field as follows: 

MODLEM = 1, 2, 3 Modify or use the Ll, Earth J , or 

/J 

JPL 15 X 8 field. 

== 5 New field input. Field is comprised of only 

the 2000 series inputs of the current case, 

= 10 Use the field from the last case. 

Subroutine OBSET is used to initialize the field when MODLEM = 1, 2 or 3, 
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SUBROUTINE INPUT F 
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Set up C and S 
arrays and 
IFIELD = 2 




RETURN 















SUBROUTINE INTEG' 


Calling sequence: CALL INTEG (LOPT) 

Purpose: This subroutine sets up arrays for use in 

subroutine EQNS where the derivatives of 
'the integration variables are calculated. 
This subroutine also calls EQNS and / or 
the numerical integration routines. 

Common blocks required: CONST, CNTRL, INPUT 

INTVAR, PERT, STATE 

Subroutines required: EQNS, ORBIT, 

RKSEVN, TWELVE 
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SYMBOLIC 

NAME 


PROGRAM 

DIMENSIONS 



o 

TIME 

I 

TRU 




COMMON 

BLOCK 

DESCRIPTION 

INPUT (2) 

Initial compute interval in 
automatic compute interval 
mode.- - - - . . 

PERT (25) 

Position and velocity vectors 
on reference orbit when 


using Encke . • 

STATE (4) 

— - ■ 

Spacecraft velocity 



STATE (7) 

Spacecraft accelerations 

STATE (14) 

Spacecraft osculating orbital 
elements on Encke variables 

CONST (5) 

Gravitational constants 

INTVAR (14) 

Compute interval 

•CNTRL (7) 

Central planet 

CNTRL (5) 

Discontinuity flag 

CNTRL (6) 

Error return flag 

INPUT (1014) 

' — ' ' "’"1 

Numerical integration scheme 
indicator 

INPUT (1073) 

Flag not to calculate deriva- 
tives at the end of the step- ‘ - 


positive to integrate a step 
Negative to calculate 
defavatives only 

INPUT (1013) 

Trajectory propagation methoc 
indicator 

INTVAR (8) 

Derivatives of state 

STATE (10) 

Time corresponding to state 
in STATE common 

INTVAR (1) 

Time corresponding to 
variables to be integrated in 
INTVAR common 

STATE (27) 

True anomaly of state when 
using METH = 4 or 5, or true 
anomaly plus argument of 
perigee when METH = 8 

STATE (1) 

Spacecraft position 



INTVAR (2) 

Variables to be integrated 
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Description; 


The primary function of this subroutine is to set up the integration array before 
integration and restore the new state after integration is completed. If LOPT 
is negative, numerical integration is not executed and this routine is only used to 
determine the derivatives at a specified time. The initial state is brought into 
the routine via X and DXor ELM in STATE common. When Cowell is used 
(METH = 1 ), the position and velocity vectors are in X and DX. When the other 
trajectory propagation methods are used, the various sets of orbital elements or 
Encke's variables are in ELM. Whichever method is used, the state is loaded 
into the integration array,* Y. 

If LOPT is zero or positive>the appropriate numerical integration subroutine 
is called to propagate the state over the time step H. 

After the state is propagated, the state array is restored to the integration 
array in order to set the state to the values after integration. The position and 
velocity vectors are also calculated at the end of integrations for use in other 
subroutines. 


192 



SUBROUTINE INTEG 
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SUBROUTINE INTERP 


Calling Sequence: CALL INTERP (T, Z) 

Purpose: To determine the position and velocity 

of the spacecraft at times other than 
compute times. 


Common Blocks Required: CNTRL, CONST, INPUT, INTER, PERT 

Subroutines Required: ORBIT, TRMN 

Input / Output 







I/O 

SYMBOLIC 
• NAME ■ 

PROGRAM 
DIMENSION - 

COMMON 
- - BLOCK 

DEFINITION 

I 

ACL 

6, 10 

INTER(81) 

: Back values of the derivatives 




of the interpolation quantities 

I 

GM 



12 

CONST(5) 

Gravitational constant 

I 

JC 

: 1 

CNTRL(7) 

Central planet 

I 

INT 

.1 

INTER(131) 

Number of back values stored 

I 

METH 

1 

INPUT(1013) 

Trajectory propagation 
indicator 

i 

PI 2 

1 . 

CONST(3) 

Twice pi 

I 

POS 

6, 12 

INTER(ll) 

Back values of the inter- 
polation quantities 

I 

T 

1 

CALLING 

OPERAND 

Independent variable used 
in interpolation 

I 

X 

10 

INTER(l) 

Back values of the 
independent variable. 

O 

Z 

6 

CALLING 

OPERAND 

Interpolated position and 
velocity vectors 
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Theory: 

The interpolation formula used is of the form 
n 


3=0 



(X) + h 

1 


2,j 


(X) f." 


where 

P(X) is the interpolated value 

X is the independent variable 

h^ . , h^ . , h„ . are functions in X 

0,1 1,3 2,3 


(1 


f, f, f” are the back values of the quantity to be interpolated and 
its first and second derivatives. 

For the cases where only the first derivatives are available, the interpolating polynomial 
shown in equation (1) reduces to a Hermitian polynomial and the functions h^ ^ become, 


m < 'Vl N" ™ 


1. (X, - <x-x. , - ,X| 


where X. is the Lagrange interpolating coefficient defined by 


^3<^> f x-x.) / (X. - X.)] 


(2] 


also 


i=0 0 * 


When both the first and second derivatives of the interpolation quantities are available, 
the functions in the interpolating polynomial become 




K=0,2 


<« 


196 



The functions 0 , . are defined by 

k,] 


^0,j® " 1+6(X-X.) 


V 1 

(a,(x,)) - 


1 " 

- Xj (X.) 


1 


■3(X-X.)X;(X.) 


0^ j(X) = (X-X.) - 3(X-Xj) X^(X.) 

02,j(X) = i(X-X.)' 

Where the second derivative of the Lagrange interpolating coefficient is given by 

2 


XJ'(X) . 


i=i \ 3 1 ' 


n 


i/j 


- E 

i-1 


. . (X.-X,)2 

1-1 3 x' 


( 4 ) 


The first derivative of equation (1) defines an interpolating polynomial for the first 
derivative of the interpolation quantity. Differentiating equation (1) yields 

k 

PWX) = V h- (X) f + h (X)f! + h’ (X) f" 


j-0 


where 


and 


h'i .(X)=r._.(X)>^ (X.) 

ri.j(X) =3 0..(X) ± .0,^^(X) 


The functions 0 are given by 


0’ (X) = 12 (X-X ) 

J J 






-3>3 


0, . (X) = 1-6 (X-X ) X.' (X ) 

^9 i J J J 


(5) 


( 6 ) 


0,,.(X.) ^(X-X.) 
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Description: 

This subroutine determines the position and velocity vectors at any arbitrary time 
by interpolating on saved values of the state and its derivatives. The saved values of 
the state and its derivatives are brought into the subroutine via INTER common. This 
array is set up by subroutine UPDATE. The values in this array are the integration 
parameters. Thus if METH = l,this array contains the position and velocity vectors, 
whereas it contains the orbital elements if METH=3. If METH = 1 or 2, the state and its 
first and second derivatives are contained in INTER* Only the state and its first 
derivative are available when METH is other than 1 or 2, 

When METH equals 1 or 2, the position (or position from reference orbit) is obtained 
using equations (1), (3) and (4). The velocity (or velocity from reference orbit) is 
obtained usir^ equations (5) and (6). When METH is other than 1 or 2, the state is 
obtained from equations (1) and (2). 

The position and velocity vectors are determined from the interpolated state. These 
quantities are set in the Z array and returned through the argument list. 
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SUBROUTINE INTERP 
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SUBROUTINE JET 


Calling Sequence; 
Purpose: 


Common Blocks Required: 
Subroutines Called: 


CALL JET 

JET computes a first-guess translunar midcourse 
velocity impulse using patched-conic assumptions, 

CONST, INPUT, INTVAR, MCCOM, PLNET, STATE 

BCONIC, CROSS, DOT, DVMAG, MVTRN, M50LEQ, 
ORIENT, PLANET, RETDV, ROTAIT, TRMN, VNORM 


Input / Output 


I/O 

SYMBOLIC 

NAME 

DIMENSION 

COMMON 

BLOCK 

DEFINITION 

I 

RTD 

1 


Radians to degrees conversion factor 

I 

GME 

1 


3 2 

GM(km /sec ) for the Earth 

m 

GMM 

1 


3 2 

GM(km /sec ) for the Moon 


WTO 

1 


Initial spacecraft weight (kg) 

I 

DJO 

1 


Julian date (days) of anchor 
vector epoch 

I 

JT 

1 


Target body number (11) 

I 

MCOUT 

1 


Extra output key (prints if ,GE. 3) 

o 

TINT 

1 

INTVAR(l) 

Time for anchor epoch (sec) 

0 

DVMC 

3 


Midcourse velocity impulse (km/sec) 

I 

BVD 

2 


Desired miss-vector (km) 
if IBTR = 1 

I 

DVB4 

1 


Velocity expended previously (lan/sec) 

I 

PRD 

1 


Desired radius of closest 
approach (km) 

I 

OINC 

1 


Desired selenographic approach 
inclination (deg) 

IHI 

DTFLS 

1 

MCCOM(82) 

Desired time to closest approach (sec) 
measured from anchor epoch, DJO 
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SYMBOLIC COMMON 

I/O NAME DIMENSION BLOCK DEFINITION ’ 


] 1 

I ! VINFD 

1 

MCCOM(83) 

Desired h^q^erbolic excess velocity(km/seci 

I 

DCEV 

1 


Desired circular excess velocity 
(km /sec) after retro 

I/O 

NGROPT 

1 


Gradient re -computation key 

I 

KGLAW 

1 


Guidance law key 

I 

IBTR 

1 

MCCOM(167) 

End constraint t 5 rpe key 

(1 for BVD, 2 for PRD and OINC) 

o 

XP 

6,12 


Ephemeris state of body I (Ion, km/sec) 

■H 

XI 

6 


Pre-maneuver state (km, km/sec) 

I 

TIME 

1 

BSHRi 

Time(sec) of XI referred to anchor epoch 

I 

EJO 

1 

STATE {2 6) 

Ephemeris tim.e (days) at anchor epoch 

o 

EJT 

1 

STATE(28) 

Ephemeris time (days) 


Introduction: 

The method to be described has been fruitfully applied to the determination of midcourse 
correction maneuvers for the RAE-B mission. It has been used as a pre-targeting device 
to provide "first-guess” midcourse corrections to a precise differential-correction-t 5 T)e 
targeting scheme. In this role, the method has eliminated the need for non-linear targeting 
measures such as control limiting and gradient re-computations and greatly reduced the 
number of trajectory calculations required. 

A gross description of the method would be "patched-conic targeting with constrained end 
conditions. " Refinements which contribute to the success of the method are primarily 
found in the use of the Jacobian energy for targeting and in the use of radius of closest 
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The transfer phase is treated as a single conic section relative to the central body. 
The first terminal of this phase is the point of the midcourse correction on the 
uncorrected transfer trajectorj^ at radius velocity Vp at time t^. The second 
terminal is on the sphere of influence of the target at a radius R 2 . The second 
terminal’s radius vector is computed from 


= R^ + P . (1) 

where R is the position of the target at t relative to the central body and where P 
t ^ 

is a vector from the central body to the point of entry of the target’s sphere of 
influence. The time, t^, of arrival at the sphere of influence is computed from 



( 2 ) 


where is the time of arrival at closest approach (specified a priori) and where r 
is the time required to travel on the approach hyperbola from the sphere of influence 
to closest approach. 

The arrival phase parameters, P and r, will be described later. An iterative solution 
of Lambert’s Problem (i.e. , "Find the conic section passing from to R in time 
- t^”) is employed. This solution provides , the velocity on the transfer conic 
at the first terminal, and V 2 , the transfer conic’s velocity at the second terminal. 

The midcourse correction impulse, AV, is computed from 

AV = . (3) 


and the target- relative velocity, V, at t is 

V = V * - V 
2 


where V is the target’s velocity at t relative to the central body. 

V ^ 


( 4 ) 


The first transfer conic is computed with P in the target's orbital plane at 20®earthward 
from tangential. The target relative transfer time, r, is fixed at 66,000 seconds. 
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The tari?et-relative velocity derived from this first conic is used to initiate the arrival 
phase calculations. A two-or-three-step iteration (transferring V to arrival phase 
calculations and P and j to transfer phase calculations) will 



converge to a steady-state value for AV. This answer is the impulsive patched- conic, 
fixed-time-of-arrival midcourse correction. 


Arrival Phase 


The arrival phase computations use the target- relative approach velocity and desired 
arrival conditions to develop (1) the time of passage from the sphere of influence to 
closest approach and (2) the point of entry into the sphere of influence. The desired 
arrival conditions are specific values of radius of closest approach and inclination. 

We develop characteristics which the approach hyperbola must possess in order to 
satisfy the desired arrival conditions. We assume that the target-relative approach 
velocity vector defines the direction of the arrival asymptote of the approach hyperbola. 
Furthermore, we assume that the point of entry into the sphere of influence can be 
computed for the next transfer phase using the direction of the arrival asymptote and 
the target-relative energy from the current arrival phase in its calculation. The energy 
of the approach orbit as used in arrival phase computation is defined by equation (5), 


C 


3 


v-v 


a’ 


( 5 ) 


where V is the approach velocity. This (Jacobian) energy is adjusted for perturbation 
by the target body on the transfer trajectory. 


Figure (i) shows an arrival hyperbola whose no-plane character is described by a 
closest approach radius, r^, and half-angle, ol. Given r^, we can use the energy, C^, 
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to solve 



Figure 1 



Figure 2 

for the various parameters of the hyperbola 


V = VC^ (hyperbolic excess speed) 



(closest approach speed) 


(half '-angle between asymptotes) 


(semi-major axis) 


(asymptotic miss distance) 


(eccentricity) 


( 6 ) 

(■ 7 ) 

( 8 ) 

(9) 

( 10 ) 
( 11 ) 
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p 


(semi-latus rectum) 


( 12 ) 



1 

n 



(reciprocal mean, motion) 


(13) 


The true anomaly, f, at "patch" distance, r, is computed from 



and the time of passage, r, from the sphere of influence to the point of closest 
approach is 



(14) 


(15) 

(16) 


We next calculate the point of entry into the sphere of influence in such a way that 
the hyperbola has the specified inclination, i^. We first define the arrival asymj)totx.^ 
S, as V normalized to unity. Then, if K is a unit vector normal to the target’s 
equatorial plane at time of closest approach, we can define vectors T and R normal 
to S as follows. (See Figure 2) 


rp — 

S X K 

(17) 

1 — 

ISxKI 

R = 

T X S 

(18) 


The miss-vector, B, lies in the orbital plane and in the plane of T and R at an angle Q 
measured from T towards R. 


B = T cos 6 + R sin 8 


( 19 | 
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The plane of the hyperbola is defined by a unit vector, H, in the direction of the 
angular momentum. 

H = B X S = R cos 0 - T sin 0 (20) 

The condition that the orbit’s inclination is i , is 

d 

H‘K = cosi ,=R»Kcos0 (21) 

d 

which can be solved for cos 0 if |R*K| ^ jcos i^j . If |R*K| > (cos i^| , it means 

i , cannot be attained. In that case, the best that can be done is 
d 

/cos i,\ 

cos 9 = 1 • sign y ^ j (22) 

The sign on sin 0 = ±“^1 - cos2 0 can be chosen to make the miss-vector lie 
above or below the equator in the miss plane. Having now calculated B, we can 
form the vector, P, from the target’s center toward the point of entry into the sphere 
of influence. 

P = r |s cos (f+ft) + B sin (f + 0 i)| (23) 

It has been found beneficial for convergence of the arrival -transfer iteration to 
introduce a "gain" of .7 on the change of P between iteration steps. 

The computations above provide the point of entry of the sphere of influence and the 
time of passage from the sphere of influence to closest approach. The point of entry 
is then used to establish a new second terminal position for the transfer trajectory. 

Guidance Laws 

The solution provided by the above process is the fixed-time-of-arrival (FTA) 
guidance solution. The FTA guidance law constrains arrival (at closest approach) 
time, t^, to be a specific value while satisfying the desired end conditions of radius 
of closest approach and inclination. Other guidance laws of interest relative to the 
RAE-B mission are: 

1) minimum midcourse fuel, 
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2) fixed target energy, and 

3) variable target energy. 

Each of the other guidance laws constrain radius of closest approach and inclination 
just as the FTA law does, but do not specifically constrain arrival time. The 
minimum midcourse fuel law embraces the "critical plane" solution, the fixed target 
energy law constrains hyperbolic excess speed at the target, and the variable target 
energy law constrains post-retro velocity at the target subject to a prescribed 
de-boost strategy. The solution for each of these laws, however, corresponds to a 
particular arrival time (or, flight time), so flight time is used as the independent 
variable in seeking solutions for each law. 

The MFG and MTF laws are pre- targeted by means of a Newton-Rap hs on- type iteration 
with flight time as the independent variable. The iteration seeks to null the dot 
product of the difference of two successive midcourse correction impulses with the 
impulse itself. That is, it seeks to find the flight time for which the magnitude of 
the correction velocity doesn’t change (i.e, ,is minimum). 


Equation 24 defines the condition for minimizing the magnitude of AV, 

AV . = 0 

dt 

where t signifies flight time in this case. We define t^ to be the flight time for the 
n-th trial and AV^ to be the velocity impulse for that trial. Then, approximately, 



AVn - AVn-1 


t - t , 
n n-1 


(24) 


(25) 


and more approximately, 


AV . - AV +(t ^ - t ) 

n+1 n n+1 n' 



(26) 
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We look for t such that equation 27 holds, 
n+1 


AV 




n+1 \ dt 


= 0 


(27) 


By making liberal use of equations 25 and 26, equation 27 may be solved to render 


t ^ - t . 
n+1 n 


t . - t = -(t - t ) 
n+1 n n n-1 


AVn » (AVn- A^n-l) 


(28) 


This process converges well in all cases tested. The resultant ^ changes very 
little with precise targeting, although the corresponding flight time shifts by an 
hour or two. 

The fixed time of arrival guidance law is pre-targeted to 1.015 times the desired flight 
time. This empirical factor tends to compensate for the difference between patched- 
conic and integrated-perturbed lunar transfer trajectory flight times. No iteration 
is required as for the other guidance laws, since flight time is both the third constraint 
of the FTA law and the independent variable for pre-targeting. 

The pre-targeting process for the FTE and VTE guidance laws include a regular 
Newton-Raphson iteration to null the third constraint by varying flight time. For the 
FTE law, the third constraint error function is 

= v (desired) - (29) 

where C is defined by equation 5. For the VTE law, the function to be nulled is 



where r^^ is the desired distance of closest approach and 6v^ is the velocity impulse 
imparted by the retro motor. The VTE law usually has two solutions , i.e. , two flight 
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times for which ^ =0. The iteration is constrained to find the solution with positive 
3 

slope, which is the solution of the longer flight time. 
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SUBROUTINE JET 


Renter ^ 


New patch time 


Initialize: 

Setp to (110^ 0) 
in oAital coordin- 
iatefi — 



Compute Mooo^s 
state at patch 

time: 


R_ = R + P 
2 m 


Call BCONIC to obtain 
AV and V 


New patch time 



Compute new P to patch 
! point with gain of . 7 on 
change 



Compute increment! 
[in transfer time to 
[minimize f AV[ 


Compute incremenlj 
in transfer time 
to null error, ^ 
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SUBROUTINE LUNA 


Calling Sequence; 


CALL LUNA 


Purpose: 


To determine the position of the Moon >vith 
respect to the Earth, 


Common Blocks Required; 


CONST, CNTRL, INPUT, INTVAR, MOON, 
PLNET, STATE 


Subroutines Required: MVTRN, M50MDT, OBLTY, ORBIT, ROTATE, 

TRMN 

Reference; 1. Supplement to the American Ephemeris and 

Nautical Almanac, U.S. Naval Observatory, 
U.S. Government Printing office. 


Input / 

Output 



4 

I/O 

SYMBOLIC 

NAME 

DIMENSION 

COMMON 

BLOCK 

DEFINITION 

I 

DJO 

1 


Modified julian date of state epoch 

I 

EJO 

1 


Modified ephemeris epoch 

I 

ELMMN- 

12 

HSBRH 

Osculating elements of Moon 

I 

FOM 

1 

MOON(15) 

Mean anomaly at epoch of Moon’s 
osculating elements 

I 

GM 

12 

CONST(5) 

Gravitational constants of the 
planets 

I 

JC 

1 


Central planet number 

I 

JMN 

1 


Ephemeris type flag 

I 

PM 

1 

MOON(14) 

Moon’s mean motion from osculating 
elements 

I 

RAD 

1 


Radian-degree conversion factor 

T 

-T* 

1 

▲ 

IHBBI 

Time since state epoch ephemeris 
desired 

I 

TVPI 

1 


2 <rr 

i' 

TMOON 

1 


Epoch of osculating lunar elements 

o 

XP 

6,12 

• 

PLNETi(l) 

Positions and velocities of the J 

planets I 
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Theory: 

This subroutine calculates the position and velocity of the Moon from the mean element, 
mean elements plus extra terms from the lunar theory or from input osculatii^ elements. 
The mean elements are obtained from the supplement to the nautical ephemeris. The 
mean longitude of the Moon , the mean longitude of perigee and the longitude of the 
ascending node are obtained from the following polynomials in time: 

X = 4.3853720 + 8399.0912 C - 1.97746D-5 

V ^ 1.730894 +71.017994 C - 3. 6267D-5 

2 

Q = 1,4312588 + 33.757099 C +3. 6263D-5 C 

where 


X = longitude of the Moon 

y - longitude of perigee 

Cl = longitude of the ascending node 

C = number of Julian centuries since 1965. 

These quantities are in the mean equinox and ecliptic of date. The argument of perigee, 
to, and the mean anomaly, AM, of the lunar orbit is obtained from 


AM = X-y 

to = y -n 


( 2 ) 


Next, the eccentric anomaly of the lunar orbit is determined from KeplerVs equation 
for small eccentricities, or 

2 3 

E = AM + e sin AM + e + e (3 sin SAM sin AM) (3) 

where e is the eccentricity o^ the lunar orbit (. 054900489) 

The position and velocity of the Moon in its orbit plane can now be obtained from 
X = a (cos E - e) 

Y = aVCe^ sin E 

X = -V sin E / S , 

( 4 ) 

Y = V cos E / S 

where 

S = V(l-e2) cos^E + sin^E 

Y = VgHN/ 2 (the velocity of' the Moon) 

+y2 a/ 

a is the semi-major axis of the lunar orbit (384750.8998) 
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The X and Y components are in the lunar orbit plane with the X axis pointing to perigee 
and the Y axis in the direction of motion. 


The cartesian coordinates of the Moon are next transformed to the mean equinox and 


ecliptic of date using the following rotation matrix; 


'^1 


cos wCOS n 

- sin Cl) cosO 



-cos i sin Q sin^o 

- cos i sin Q coso) 

y 

> = 

cos CO sinQ 

- sin (i) sin Q, 



+ cos i cos Q sin 

+ cos i cosO cos 0 ) 

Z 


sin i sin 40 

sin i cos 

V J 



- 



(5) 


where i is the inclination of the lunar orbit w.r.t. the ecliptic 
(,08980414 radians) 


The Moon^s position and velocity vectors in the Earth*s mean equinox and equator of 
1950 are obtained from standard rotations. 


Extra terms are used in the calculation of the inclination, longitude of the ascending 
node of the lunar orbit, mean anomaly and semi-major axis of the lunar orbit when 
the proper input flag is set. The terms include the effects of evection, variation, 
and other periodic terms due to the Sun^s force on the Moon. 

The longitude of the Sun and the loi^tude of the perigee of the Sun^s orbit is determined 
from mean elements similar to the lunar terms. The polynomials used are: 

X S = 4,8860536 + 6,28331958 C +5.2796 0-60^ 

( 6 ) 

ys = 4.9082294 + ,030005264c + 7, 90246D-6 C2 

The changes in the above mentioned quantities are; 

i = i mean + . 002515665 cos (2xs- 2 Omean ) 

Q ^ Qmean + ,02805487 sin (^s - 2 Omean) (7) 

a ~ a mean (1 + , 0090714046 cos (2 X - 2Xs) 

and the true anomaly of the Moon is determined from 

u = AM + , 10975961 sin AM + . 0037634149 sin 2AM 
+ , 00017926303 sin 3AM - . 00054493 sin (X “ Xs) 

( 8 ) 

+ . 022238412 sin - 2xs - AM) + . 011493967 sin<^ - 2xs) 

- .00324292 sin(Xs - ys) 
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The osculating lunar position and velocity vectors are determined in a completely 
different manner. The mean anomaly at the desired time is determined from the 
mean motion and mean anomaly at epoch from 
AM = PM (DELT) + FOM 
where PM is the mean motion 

DELT is the time since epoch 
FOM is the mean anomaly at epoch. 

The true anomaly is determined from subroutine TRMN ,and the position and velocity 
vectors obtained from the osculating elements from subroutine ORBIT. 

Description; 

The ephemeris epoch and time since the epoch that the ephemeras is to be 
determined are brought into the routine via common blocks. The JMN flag is 
used to determine the type of ephemeris as follows 
JM = 1 mean elements 

= 2 mean elements plus extra terms 
= 3 osculating elements. 

If JMN equals one or two, the mean elements of the lunar orbit are determined from 
the polynomials in equation (1). If the extra terms are to be included, they are 
determined from equation (6) and the eccentric anomaly from equation (7). Otherwise, 
the extra terms are not included and equations (2) and (3) are used. Finally, eqviation 
(4) is used to determine the coordinates and they are rotated to the mean equinox and j 
equator of date using the rotation matrix shown in equation (5), Subroutines M50MDT 
and OBLTY are used to obtain the vectors in Earth mean equinox and equator of date. 

The osculating position and velocity vectors are obtained from TRMN and equation (9), 
The osculating elements are brought into the subroutine via Moon common and describe 
the Moon^s orbit with respect to the Earth in the Earth ^s mean equator and equinox 
of, 1950, 

The position and velocity vectors determined are loaded into the XP array according 

to the value of the current central planet number in JC, 

JC = 3 Earth central planet, thus position and velocity 

of Moon w, r,t. Earth loaded into XP array in 
Moon^s position 
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JC = 11 Moon central planet, thus position and velocity 

of Earth w, r.t. Moon loaded into XP array in 
Earth's position. The negative of the values 
determine for the Moon w.r.t. Earth are loaded 
into XP{I, 3). 

JC ^ 3 or 11 Some other planet central, thus the position of 

the Earth WoT.t, central planet is added to Moon's 
position and velocity and loaded into the Moon's 
position in the XP array. 
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ENTER 



Rotate to mean of 1950 using 
equation (5), M50MDT, OBLTY 
and MVTRN 



Load vectors into XP array 
according to JC 


V 
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SUBROUTINE MATMPY 


Calling Sequence: 
Purpose; 

Common Blocks: 
Subroutines 


CALL MATMPY (KRL, A, KCLRR, B, KCR, C) 

MATMPY multiplies the matrices A (KRL x KCLRR) 
by B(KCLRR x KCR) to get C(KRL x KCR) 

None 

None 


Input/Output 


I/O 

SYMBOLIC 

NAME 

PROGRAM 

DIMENSION 

COMMON 

BLOCK 

DEFINITION 

I 

A 

Variable 


Matrix on the left 

I 

B 

Variable 

Calling Operand 

Matrix on the right 

o 

C 

V ariable 

Calling Operand 

[A1 X [B1 

I 

KCLRR 

1 


Nximber of columns 
in A and rows in B 

I 

KCR 

1 

Calling Operand 

Number of columns 
in C and B 

I 

KRL 

• 

1 

Calling Operand 

Number of rows in 
A and C 


Theory; 

General matiTix multiplication is defined by [C ] = [A] x [B] 


where 


C.. - 
U 


k=l 


m is the number of columns in A and rows in B, 
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Description: 


MATMPy first initializes the matrix C to zero and then forms the sum of the 
products above for i = 1, KRL and j = 1, KCR. The arrays are singly-dimensioned 
to avoid variable dimensioning. 
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SUBROUTINE MCBURN 


Calling Sequence: 


CALL MCBURN 


Purpose: MCBURN accepts the pre-midcourse state and time 

plus a velocity impulse, computes the post-midcourse 
state and time. 


Common Blocks Required: CNTRL, C0NST, INPUT, MCC0M, STATE 

Subroutines Called: DVMAG, F0WARD, D0T, BURND 


Input/Output 


1/0 

SYMBOLIC 

NAME 

PROGRAM 

DIMENSION 

COMMON 

BLOCK 

DEFINITION 

0 

JC 

1 

CNTRL(7) 

Post-maneuver central body number 

I 

GM 

12 

C0NST(5) 

3 2 

GM gravitational array (km /sec ) 

I 

G 

1 

C0NST(45) 

Earth's surface gravity (km/sec ) 

0 

TFINAL 

1 

INPUT(4) 

Integration stop time (sec) 

■ 

WT0 

1 

INPUT(38) 

Initial spacecraft weight (kg) 

0 

TC0MP 

10 

INPUT{170) 

Time (sec) to change Integration step size 

0 

DELT 

10 

INPUT(180) 

Integration step size (sec) 

I 

TWDl 

3 

INPUT(320) 

Times (sec) for weight flow rate changes 

■ 

WD0T1 

3 

.... 

INPUT(350) 

Weight flow rate changes (l^/sec) 

0 

TIG 

1 

. . _ 

JNPUT(380) 

Ignition time (sec) 

0 

TB0 

1 

INPUT(383) 

Burnout time (sec) 

I 

ASPMC 

1 

INPUT{441) 

■ 

Specific impulse of the midcourse 
motor (sec) 

0 

KRASH 



Trajectory stopping key 

0 

KMETH 

IBB 


Trajectory computation method 

■ 

IBURN 


HREBil 

Burn computation method key 
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1/0 

SYMBOLIC 

NAME 

PROGRAM 

DIMENSION 

COMMON 

BLOCK 

DEFINITION 

I 

XMC 

6 

■IISH 

Pre-maneuver state (km, km/sec) 

wm 

DV 

3 


Midcourse velocity impulse (km/sec) 

I 

TMCS 

1 


Midcourse initiation time (sec) 

I 

KBURN 

. 

1 

I^HRSn 

Burn maneuver computation key 

I 

ICB 

■mi 

■MSSI 

Central body of XMC 

0 

X 

6 

STATE(l) 

Post-maneuver state (km, km/sec) 

0 

T 

1 

STATE(IO) 

Post-maneuver time (sec) 

0 

ATT 

3 

STATE(ll) 

Thrust attitude (unit vector) 

0 

WEIGHT 

1 

STATE{34) 

Spacecraft weight (kg) 
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Method: 


MCBURN’s method for computing the post-midcourse state and time is determined 
by the input key, KBURN, 


Impulsive (KBURN. LE.O) 

In this case, the input velocity impulse, DV, is simply added to the pre-midcourse 
velocity to form the post-midcourse state. 


X == 


XMC + 



T = TMCS 


( 1 ) 

( 2 ) 


Finite Burn (KBURN. GT.O) 

In this case, the input velocity impulse, DV , is used to calculate the burn duration 
and thrust attitude. The computation of burn duration assumes that the thrust mag- 
nitude is proportional to mass flow rate, that the mass flow rate decreases linearly 
in time, and that the velocity impulse is entirely attributable to thrust. - Defining 
the characteristic velocity, c , of the velocity correction package as the product 
of gravity, G , and specific impulse, ASPMC , we write thrust as follows: 


T = cm - - c 


dm 

dt 


(3) 


The minus sign is necessary here if we define m to be positive. 

The acceleration due to thrust is thrust/mass, so the velocity impulse, 6v , due 

to thrusting for time t, is: 

b 


^ 1 
. j 


dt = - cln \ — — 
m U m(o) J 


(4) 


Equation ( 4 ) may be solved (given 6v = |dv 1) for the mass expenditure, 6m. 

6m = m(o) - m( tj^) = m^(l - e 


( 5 ) 
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Under the assumption of a linear mass flow rate, we can solve for burn duration 
as follows: 


m(t) 

= m(o) + m t 

(m^O) 

YV\ O 

(6) 

6m 

= J m dt = 
o 

^ . 1 in , ^ 

m(o)tb+Ytb 

(7) 

m 

avg 

= i[m(o)+^ 

/ m(o)^+2m6m J 

(3) 


6m 

m 


(9) 


m 

avg 


This form (9) of the solution to (7) is preferable to the more-standard quadratic- 
equation solution because it does not require division by fh and reduces immedi- 
ately to the linear-equation solution if m = 0 . The thrust direction, T , is 
computed parallel to DV . 


T 


DV 

6v 


( 10 ) 


The method (KBURN . NE . 6) for computing the post-midcourse state for a finite 
burn is to integrate the equations of motion over the burn duration, 

X = XMC + J X (gravity + thrust) dt (11) 

o 

T = TMCS + (12) 


Closed-Form Approximation (KBURN , EQ . 6) 

The double integration of the thrusting acceleration can be done in closed form 
if a mass flow rate which varies linearly with burn time is assumed. The super- 
position of this closed-form solution with the thrust-free state-change solution 
during the burn provides an excellent approximation to the numerically- integrated 
solution. In MCBURN, the closed-form solution is superimposed only on the 
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multi-conic thrust-free solution. The closed-form development follows. The 
position (6R) and velocity (6V) increments are presented. 


^ r T _ 
J m 


dt = - c T f^n 


rziV-j 
\-m(o) J 


m L m(o) 




= J 6V dt = -cTJ ~ [m = m(t),m^=m(o)] 


To evaluate the integral in (14), we note from Eqs. (6) and (7) that 

dm = in dt 


1 -2 -2 

m = m - ( m - m, ) . 

® 2m 


The integral is 
t. 


r — dt 

J m 


= sl 

m o 

o 

m(t ) 

1 r ^ .2 »2 » 

= TT- f.n[m-2mm-m 1dm - mt f.n(-2mm ) , 

m J, 0 0 D o 


The integral in (17) is of the form J>tn(x^+a^) dx, where 

2 ... 2 

a = - 2mm - m 
o o 

.2 / 

is positive if m is less than (-m /2m^), 

J>tn(x +a )dx = xf.n(x +a )-2x + 2atan “ 

Omitting the intermediate algebra, the resultant position change is 

6R = + +-S-taa'^(T 

I m 6vLbm \2m-mt. /JJ 

o Ob 

It may be shown (but not simply) that the limit of (19) as m approaches zero is 
the constant mass flow rate solution, 
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r c 


(20) 


The only reason why the closed-form solutions^ (13) and (19), do not provide exact 
results (under model assumptions) when added to the thrust-free state at burnout 
time is that the gravitational acceleration depends on 6R(t) . A simple extension 
is included in MCBURN's approximate burn to modify the velocity for gravitational 
accelerations resulting from 6R(t) . It is assumed for this extension that the 
gravitational acceleration is (-j^iR/r ), The additional velocity, 66V, is 


66V = 


_ M. 

3 

r 


(I-3RR 



6R(t) dt 


( 21 ) 


The integral of (21) can be evaluated as follows. 


t 




J 6R(t)dt=J +2c[t + 4tair^(— 

J Ji-m m Lm \2m-mt/JJ 


o o 


6r(V) 




m 


( 22 ) 


66V = 




-T 


(6V-3RR 


6V){n 


6r c 6m 

m T— + m - —I — 
6v 6v 



(23) 


This velocity correction improves the closed-form solution. MCBURN is used 
in midcourse targeting. When entered with DV , it provides post-burn state 
where the burn time is computed from Eq. (9). The integrated state differences 
give rise to end -constraint errors which, through targeting, change DV . The 
changed DV does not then represent a velocity impulse, but rather an inter- 
mediate variable set which gives rise to a changed burn time and thrust direction 
through MCBURN’s formulas. Such a procedure has programing advantages over 
a procedure which would switch targeting control parameters to time and thrust 
direction when passing from an impulsive burn to a finite burn. Logic of this 
subroutine is straightforward and requires no flowchart or block diagram. 
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Consider the time -segment 


Ct.:t} 

I 


on which m is linear 



6R.(t) = J (-cto^)dT 

t. o 


65V.(t) 

i 


= r 

t. 


6R.(T)dT 

i 


Case 1: m = + const. , m = m - m 6t 

o 


t-t. 


6R 




0 • o 

-I ^ 

1 T 

m 


d(-) = - 

\ m / 


m 


m / m 
o o 


dT 


( T = t-t. = 6t) 


=.-c[ ?— ' 

L m \ m / X 


m 


t-t, 

0 


+ -T-rm - mr 'j + mrl ^ 

m L o \ m / J„ 


m - mT, 
o 


c , m - , 

T* m d/n — + m ot 
tn L 


m L m 


1 = -™6v +c6t = 6vr^-J?-l 
J m L 6v m J 
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SUBROUTINE MCBURN 
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SUBROUTINE MCSET 


Calling Sequence: 

Purpose: 

Common Blocks Required; 
Subroutines Required: 


CALL MCSET 

MCSET performs initializing calculations 
for mid course and Monte Carlo analyses. 

CONST, INPUT, MCCOM 

None 


Input / Output 


I/O 

SYMBOLIC 

NAME 

DIMENSION 

COMMON 

BLOCK 

DEFINITION 

I 

RAD 

1 


Radian-to-degrees conversion 
factor 

I 

GM 

12 


Gravitational constants 
(km^/sec^) 

I 

DJL 

1 

INPUT{37) 

Julian date at launch (days) 

w 

DJO 

1 


Julian date at anchor epoch (days) 

m 

COV 

6,6 


Tracking error covariance 
matrix 

■ 

TWD 

10 


Times for weight flow rate 
table (sec) 

I 

WD 

10 


Weight flow rate table (kg/sec) 


PSIDIN 

10 

ISBSHH 

Desired end constraint values 
(km, deg, km/sec) 

I/O 

SIGATM 

1 

ISSSHH 

Midcourse pointing error 
(deg-> rad) 

I/O 

SIGATR 

1 


Retro pointing error 
(deg-+ rad) 

m 

TMCZIN 

1 


Second midcourse time 
(sec past DJL) 

I 

ASPMC 

1 


Sipecific impulse - midcourse 
motor (sec) 

I 

ASPR 

1. . 


Specific impulse - retro motor 
(sec) 

m 

WRETRO 

1 


Weight of retro fuel (kg) 

I 

RO 

1 


Desired circular orbit radius 
(km) 
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SYMBOLIC 

NAME 


DIMENSION 


COMMON 

BLOCK 


INPUT(447) 




DEFINITION 


Desired miss vector components 
(km) 


Velocity step for partial 
generation (km/sec) 


Constraint error tolerances 


Target body number 


Mode switch 

3 midcourse, 4 Monte Carlo 


Target constraint type ke 


Guidance law selector 


Number of trials to re -compute 
gradient 


Number of targeting trials 
allowed 


Factor of DINK for limitin 


Probability for scaling 
purposes (% 


Velocitji' step limit (km/sec 


Prob ability scale factor 

Initial-guess midcourse velocity 
impulse (km/sec) 





MCCOM(19) I Desired miss vector (km' 


MCCOM(24) Expended midcourse velocity (lan/j 


Factor used in VTE law 

calculations (kg ) 

Julian date difference, 

DJO-DJL (sec) 

Second midcourse time 
(sec past DJO^ 


Desired end constraints 


End constraint tolerances 


Expended fuel table (kg) wrt TWD 


Number of targeting trials 
allowed 


Number of constraints to test 
for convergence 


mi 
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SYMBOLIC COMMON 

I/O NAME DIMENSION . BLOCK DEFINITION 


0 

NGROPT 

■ 1- 

MCCOM(163) 

Number of trials to re-compute 
gradient 

o 

KGLAW 

1 


Guidance law indicator 

o 

IBTR 

1 

MCCOM(167) 

Target constraint-type key 

0 

IPD 

3 


Indicators for constraints to 
test for convergence 


Description: 

This subroutine is straightforward and requires only a little explanation. First, the 
computation of the desired 5th constraint is normally circular velocity at desired 
circular radius, r^ = RO, which is also the desired radius of closest approach, 
r^ = PSID(1). 


PSID(5) 



+ desired overburn velocity 


The user may choose to target the VTE law to r > r in just such a way that the 

p o. 

apsidal radius opposite r on the post-retro orbit is r^. 


In this case, 

PSID(5) 



The second calculation worthy of mention is that of the expended fuel weight table, DW, 

It is computed by integrating the piecewise-linear mass flow rate table, WD. 

t. + 1 . 


6W 


i+1 


8W. + 
1 



W, dr = 

X 



(W. 8t. + 4“ W. 8^ ) 
3 ] 2 3 y 


t. 

1 


The third calculation is of PRX, used in BELL for scaling the propagated ensemble 
error statistics. The input IPROB is interpreted as the desired Gaussian 
probability, P(x), 


X 


P{x) = 


L 


p (x) dx = erf 


(f) 
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The equation, erf 




IPROB, is solved iteratively with a Newton-Raphson 


predictor, beginning with the first guess, x=l. 
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SUBROUTINE MCVERF 


CALL MCVERF 

This subroutine controls the logic flow during 
Midcourse Verification Analysis 

CNTRL, CONST, ELMNT, INPUT, MCCOM, 
OBSIT, PLNET, STATE 

CROSS, DVMAG, FOWARD, MVTRN, M50EPM, 
M50LEQ, PUTELS, VNORM 


I/O 

SYMBOLIC 

NAME 

DIMENSION 

COMMON 

BLOCK 

DEFINITION 

>— 1 . 

ASPMC 

1 

INPUT(441) 

Specific impulse of the midcourse 
motor. 

I/O 

ATT 

3 


Attitude unit vector 

I 

BURNT 

1 


Midcourse motor burn time 

1— 1 

DAY 

1 


Day of state epoch 

O 

DELT 

10 


Compute intervals 

0 

DELTO 

1 


Initial compute interval when in auto- 
matic compute interval mode 

I 

DJO 

1 

ElSBHIl 

Modified julian date of 
state epoch 

I 

DJL 

1 


Modified julian date of 
liftoff epoch 

I 

DV 

3 


Midcourse impulsive velocity 
increment 

I 

DX 

3 


Spacecraft's velocity 

0 

ERRC 

1 


Error control limit of automatic 
compute interval 

I 

HR 

1 

IRflfflBH 

Hour of state epoch 

I 

HRL 

1 


Hour of launch epoch 

I 

IDSAT 

1 


Satellite identification number 


Calling Sequence: 


Purpose: 


Common Blocks Required; 


Subroutines Required: 
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Flag used to write out state for the 
4NPUT(1092) orbit dete rmination program 
Initial trajectory 

propagation indicator 


INPXJT(1030) Output frequency flag 


Flag to read initial state from 
INPUT(1057) midcourse tape 


INPUT(Gl) Midcourse unit number 


Longitud es of the tracking stations 
Seconds of state epoch 


Seconds of launch epoch 


STATE (10) Seconds since state epoch 


Burnout time of midcourse 
engine (engine 1) 


Switching times of compute 
interval table 


Final time 


Ignition time of midcourse engine 
(engine 1) 


Initial s pacecraft mass 

STATE(35) Current sp a cecraft mass 

S TA TE (1) Spacecr aft's p ositio n vector^ 

Spacecraft’s position and velocity 
vectors at midcourse motor 
MCCOM(6) ig nition 

INPUT(54) Minutes of state epoch 

INPUT(24) Minutes of launch epoch 


Month of state epoch 


Position vectors of tracking 
stations 


Position and velocity vectors of 
the planets 


Year of state epoch 






















































Description; 

The midcourse verification analysis is used to numerically integrate the midcourse 
motor and present output which describe conditions at motor ignition and at closest 
approach to the Moon. The conditions at motor ignition, burntime and burn attitude 
can be input via a tape generated in a previous midcourse analysis. The KREAD flag 
is used to determine if the tape option is to be used. If the tape is not read, the initial 
conditions are in X and the burntime and ignition time must be input via TBURN and 
TIG, respectively. The burn attitude is brought into the subroutine via ATT. 

The initial conditions are propagated to midcourse motor ignition time using subroutine 
FOWARD. The compute interval is adjusted for the motor burn and the midcourse m.otor 
is numerically integrated using subroutine FOWARD, A flag is set to obtain the doppler 
output during the motor burn. This output is obtained from subroutine DOPLER. The 
state is written on a file to be used by the Orbit Determination Program if ISET is one. 
Subroutine PUTELS is used to write this file. Next the state is propagated to closest 
approach to the target planet using FOWARD, Information about the motor burn and 
conditions at the target planet are printed before the subroutine terminates. The 
information printed includes midcourse fuel expended, tracldng station elevation, 
azimuth angles at motor ignition, and the state at the target planet. 
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SUBROUTINE MCVERF 



RETURN 


236 











SUBROUTINE MDCORS 


Calling Sequence; 


CALL MDCORS 


Purpose: MDCORS is the driver for the midcourse 

guidance targeting procedure 

Common Blocks Required; CNTRL, CONST, INPUT, MCCOM, PLNET, STATE 


Subroutines Required: CROSS, DOT, DATMAG, FOWARD, JET, MVTRN, MCBURN, 

RETDV, SENSO, SPER, VNORM, TARGET 


Input / Output 


I/O 

SYIMBOLIC 

NAME 

DIMENSION 

COMMON 

BLOCK 

DEFINITION 

■ 

JC 

1 


Central body number 

I 

RTD 

1 

CONST(l) 

Radian to degree 
conversion factor 

■ 

TFINAL 

1 


Integration stop time (sec) from 
anchor epoch 

I 

WTO 

1 

IHRH 

Initial spacecraft weight (kg) 

I 

1 ■ 

JTARG 

1 


Target body number 

o 

■ '■ - 

KRASH 

1 

INPUT(1032) 

Trajectory stop -type key 

■ 

lUVlETH 

1 


Trajectory computation method kej 


MCOUT 

1 


Midcourse extra output key 

I 

MCKLUG 

1 

BISBEIRIl 

Pre-targeting option key 

I 

IBURN 

1 

lISlSRBi 

Midcourse burn computation 
option key 

I 

KMETHP 

1 

ISBRH 

Initial trajectory computation 
method key 

I 

KTF 

1 


Number of extra points in 
flight time scan 

I 

ALUVUT 

1 


Control step limit (km/sec) 

o 

XMC 

6 

H^SRI 

P re -ignition midcourse state 
(km, km/sec) 
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symbolic 

! I/O NAME . 

1 

DIMENSION 

COMMON 

BLOCK 

1 

DEFINITION i 

I/O 

DV 

3 

MCCOM(12) ! Midcourse velocity impulse(km/sec) 
• Spherical DV 

MCCOM(l5) ! (mas;-lan/sec, dec-deg, ra-deg) 

o 

DVS 

3 

■ 

TMCS 


■ Midcourse ignition time (sec) 
MCCOM{18) ; from anchor epoch 

o 

XSUN 

3 

Spacecraft-to-sun vector 
MCCOM(21) ' at ignition (unit) 

I 

DVB4 

1 

: Previous midcourse velocity 
MCCOM(24) used (km/sec) 

o 

DVRET 

1 

' Retro- velocity impulse 
MCCOM(25) , magnitude (km/sec) 

m 

PFAC 

1 

i 

MCCOM(38) Propulsion factor (kg, km/sec) 

o 

WTF 

1 

; Spacecraft weight (kg) after 
MCCOM(47) midcourse burn 

I 

DPT 

3, 10 

C onstraint/ control sensitivity 
MCCOM(50) : matrix transposed 

m 

PSID 

10 

i 

MCCOMjSO) . Desired end condition vector 

I 

TOL 

10 

MCCOM(90) . Tolerances on end constraint errors 

I 

PSI 

10 

MCGOM(IOO) ■ End constraint error vector 

w 

NT 

- 

1 



I Number of trials allowed in 
MCCOM(15l) ■ targeting 


Burn computation method 


O 

0 
O 

1 
I 


I 


£. 

o 




KBUKN 
IT 


IR 

NP 

NGROPT 


KGLAW 


ICB 


ISP 


IPD 


X 


I MCCOM(154) ' indic ator 



MCCOM( 157) ! Punni ng number of trials 


MCCOM(l 58) : return ke y for tar geting s tatus 
j Number of constraints in 

J^ICC ® ® _ 

1 Number of trials to re -compute 
MCC OM(1 63) I gradi ents 


M C C O M ( 1 64) ; Gu i d auce law in di cat or 


MCCOM(165) ! Midcourse central body number 


MCCOM(166) Gradient-computed indicator 


MCCOM(1 69) 


S TATE(l) 


Constraint indicator vector 


Anchor vector state 


j Anchor time (sec) anchor 
STATE(IQ) 'epoch, DJO 
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Description: 


MDCORS is best described with reference to its accompanying flow charts. The first 
of these depicts the gross targeting logic. 

The first step in MDCORS is to propagate the state, X , forward from T to the midcourse 
time, TMCS, by calling TOWARD. The resulting pre-ignition midcourse state, XMC, is 
then saved. If the pre-targeting option key, MCKLUG, is positive, JET is then called 
to furnish a first-guess value for DV. If MCKLUG is zero, the starting value for DV 
is obtained from common where it was placed either by input or by previous targeting. 
Having thusly initialized, targeting is begun. 

Subroutine SENSO is called to transform XMC and DV into an end constraint error vector, 
PSI. SENSO effects this transformation in the following three steps: 

1. XMC and DV are converted into a post-maneuver state, X, and time, T, 
by subroutine MCBURN. 

2. The post-maneuver state is propagated to the point and time of target 
closest approach by subroutine FOWARD. 

3. The end state is used to compute end constraint function values which 
are subtracted from desired values to render the constraint error vector, 
PSI. 

PSI is dimensioned 10, although only 8 of its components are used. These components 
represent the following errors: 

PSI(l) 

PSI(2) 

PSI(3) 

PSI(4) 

PSI(5) 

PSI(6) 

PSI(7) 

PSI(8) 


B*T, miss-vector component 
B»R, miss-vector component 
Time of flight 

Hyperbolic excess velocity of arrival hyperbola. 
Circular excess velocity after retro at periapsis 
Total correction fuel expended (value, not error) 
Radius at periapsis of the arrival hyperbola 
Inclination of hyperbola to target's equator 
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The tolerance array, TOL, is similarly defined, so that the criterion for convergence 
is 

PSI (I) ^ TOL(I) 

for each of the end constraints associated with the particular guidance law in force. 

Each of the guidance laws available in MDCORS constrains the same first two functions: 
B-T and B-R if IBTR=1 or radius at periapsis and inclination if IBTR=2. (IBTR is an 
input quantity used by AUTO to set the array, IPD). The remaining function constrained 
by each law is: 


1. 

Minimum (midcourse) fuel 

None 

2. 

Fixed time of arrival 

PSI(3) 

3. 

Fixed target energy 

PSI(4) 

4. 

Variable target energy 

PSI(5) 

5. 

Minimum total fuel 

PSI(3) * See MTF procedure 
description 


If one or more of the errors for the guidance law in force exceeds tolerance, a new 
estimate of DV is computed. Details of this computation will be described later. 

If a new gradient is to be generated (iteration trial number less than input, NGROPT), 
SENSO is called with IR=2 to generate it. SENSO uses the secant method (or finite 
increments of DV) in repeating the three steps described above to compute sensitivities 

^pgl 

of PSI to variations in DV, The result is interpreted as evaluated at DV Its 

b DV 

transpose, a 3x10 matrix is stored in DPT. The last two columns of DPT are undefined. 
When the iteration trial number equals or exceeds NGROPT, no new gradient is computed. 
In this case, the last-computed DPT is used for succeeding iteration trials in computation 
of DV. By not computing new gradients at each trial, three trajectories per trial may 
be saved. The resulting deterioration in convergence is small if DV is ’’near” its final 
value when gradient computation is terminated. Results show that when pre-targeting is 
performed, a single evaluation of the gradient at the first guess DV is optimal in terms 
of total trajectories required and run time. 

Before discussing the computation of DV, let us consider the post-targeting logic. This 
consists of tests for jumping back into the targeting logic. First, if a minimum midcourse 
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fuel iteration has converged on the 0th step, another step is forced. This is done 
because only the first two constraint errors are tested for the MFG law. Tne 
solution DV for any other law would satisfy these two constraints as well, without 
necessarily being a minimum DV or "critical plane" maneuver. The second reason 
for jumping back into the targeting logic is due to the minimum total fuel law 
implementation. The reason will become apparent when this implementation is 
descxdbed. The third jump-back is because of the approximate-intermediate- 
trajectory capability. The initial estimate of DV is obtained using trajectory method 
KMETHP, which should be set to 6 for multi-conic for transiunar trajectories. If 
it is desired that DV be estimated for a more precise trajectory computation method, 
KMETH KMETHP, the initial estimate of DV is used to re-start the KMETH 
targeting procedure. It should never be necessary to re-generate gradients for this 
additional targeting. 

Estimation of AV 

The method of calculation of A V is dependent on the guidance law in force, although 
each guidance law is designed to constrain two common end conditions, i .e. , B* T and 
B* R or radius at periapsis and inclination. It has been found that even when the latter 
conditions are to be constrained, B-T and B-R errors should be used to calculate AV. 
That is, desired values of radius at periapsis and inclination should be used, together 
with hyperbolic excess velocity (vector), to compute the "desired" B»T and B*R and 
their corresponding errors, and . When these errors are nulled, the radius 
of periapsis and inclination errors will be nulled also. Formulae for computing 
"desired" B*T and B*R are to be found in Reference 1. 

Minimum (midcourse) Fuel Guidance (MFG) 

The MFG law minimizes the magnitude of AV while constraining the B* T and B'R errors, 
\J/ and . It is desirable from a programing point of view to avoid numerical 
minimization procedures if possible - which it is in this case. We could null >1'^ and 
^ (linearly speaking) with any AV such that 
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2 'Hr 

where H and R„ are rows of the 2 x 3 gradient matrix, - . 
1 2 

such A Vs is 


AV = - 




" V «3 



The family of 


where \^r is a free parameter and R is any vector which is linearly independent of 
3 3 

R. and R . That is, if we adjoin a third row, R , to the gradient, we can invert the 
12 3 

results and solve for AV, Making the substitution lor columns of the inverse, 
we can write 


AV = -(C 


hi\ 




2 t t 

and 5v = ^ C . 


We now minimize 8v with respect to the free parameter, . by setting the derivative 

O 

to zero and solving for , 

O 


d fiv 
d>k 


= 2>Ir*C c |o |= 2 Cj +<I '2 +'I'3C3)*C3 = 0 







This ^ leads to the following AV, 

O 

^3 ®3% 

/ ^3^3 

where ^ can have any value, since il - — ^ — 

^ SS 

to the "critical plane" defined by R and R , and the minimum -magnitude AV lies in 

X ^ 

this plane. If the adjoined row, R , is defined as the cross-product of R and R , 

3 -12 

the implemented solution is identical to the steepest ascent solution. The minimum fuel 


C =0, The vector, C , is normal 

O U 
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guidance solution is computed by first computing 


AV* = - (C^ 



and then projecting the result onto the critical plane. 

«t 


AV = AV - 


3 AV 


Since the constraint functions are not strictly linear functions of AV, an iteration is 
required to find the solution, and the gradient varies during the iteration. And since 
the "critical plane" may change somewhat during an iteration, it is important to 
project the whole A V solution onto the current critical plane rather than simply to 
project the incremental AV due to residual constraint errors. 

Fixed Time of Arrival (FT A) Guidance 


The end constraints for this law are B*T, B*R and time of flight. Representing errors 
in these constraints by < 1 / and ^ , respectively, we need a AV such that 

X ^ tj 



where R 


1 




2 AV 


is a row of the gradient, 


2 AV 


The solution is 


■fi 

AV = - (C^ C3) 1 J2 


where 


(C^ C3 C3) = i-T— ( (R2 X R3) ‘ (R3 X (R^ X R3>‘ 
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Fixed Tar ^gt Energy (FTE) Guidance 

The only difference between the FTE and FT A laws is that the third constraint 
for the FTE law is hyperbolic excess speed with respect to the target at arrival. 

Variable Target Energy (VTE) Guidance 

Application of the VTE law is peculiar to missions where the retro^burn at the target 
is an attitude-controllable fixed impulse. The VTE law is set up to calculate the 
midcourse maneuver AV for which the post-retro velocity is a desired value 
(especially circular) while constraining B*T and B*R or closest approach distance 
and inclination. 

The post-retro velocity is dependent upon the weight of fuel expended at midcourse 
and the arrival energy. Implementation of this law assumes that the retro-burn is 
executed at periapsis of the arrival h 3 rperbola with the thrust deflected parallel to the 
periapsis velocity. The constraint error, for this law is formulated as "circular 
excess" velocity. 




/A 

1 


+ C “ 


v + 


^ _ 




In this formulation, r^ is the desired final orbit radius, g- is an input desired circular 
excess velocity^ and fiv^ is the velocity impulse magnitude imparted by the retro-burn. 
Calculation of an appropriate midcourse AV for the VTE law can be formally identical 
to that for the FT A and FTE laws, given a good first-guess AV to start the iteration. 

An "assistance" procedure is beneficial, however, to reduce convergence difficulties 
which may arise from nonlinearities of ^ (A V), This procedure consists of an iteration 
loop imbedded in the Newton-Raphson iteration loop to predict changes in 6 v^ due to next- 
step changes in A V. Reference 1 contains a detailed description of this procedure. 

Mini mum Total Fuel (MTF) Guidance 

The implemented MTF guidance solution is the restricted solution which constrains 
approach conditions, B’T and B«R or radius at periapsis and inclination. In this respect, 
the implemented solution is neither general nor optimal. Results of tests indicate. 
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however, that for missions of the RAE-B tjrpe, the implemented solution will differ 
from the optimal by only a few hundredths of a kilogram in total fuek The total 
correction fuel (when arrival conditions are constrained) is conveniently parameterized 
by flight time to target periapsis. The MTF solution is therefore obtained by solving 
for the FTA guidance solution within a loop which minimizes total fuel as a function 
of flight time. The minimization procedure will be found in the description of 
subroutine MINTF, The procedure is initiated at the MFG flight time, since the 
MFG solution is never far from the MTF solution. It is unnecessary to recompute 
gradients for obtaining rapid FTA convergence within the MTF procedure. 


Reference 1 


Bjorlanan, W.S., Midcourse Guidance for Lunar and 
Planetary Orbiting Missions, AMA 71-16, March, 1971. 



SUBROUTINE MDCORS I (Gross Targeting Logic) 


Advance state to mid- 
course time. Save XMC, (FOWARD) 
TMCS 


^ ■ — 
Obtain first- 

guess 

correction impulse, 

I AV 

-j 


(JET) 


Compute post-maneuver state in 
MCBURN. Advance state to closest 
approach with FOWARD, Evaluate end 
constraint errors with TARGET 


(SENSO) 


"Constraint errors' 
s^gainst tolerance 


Post-targeting 

computations 


Not OK 


x^hether or not 

to compute new 
gradient ^ 


Compute improved mid- 
course maneuver m 
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SUBROUTINE MDCORS II (Computation of DV) 



247 
















SUBROUTINE MINTF 


Calling Sequence: CALL MINTF 

Purpose: MINTF controls the gross logic for targeting the 

minimum total fuel guidance law. 

Common Blocks Required*. MCCOM 

Subroutines Called: None 


Input / Output 


I/O 

SYMBOLIC 

NAME 

DlklENSION 

COMMON 

BLOCK 

DEFINITION 

I/O 

PSDD 

10 

MCCOM(80) 

Desired constraint vector - esp. 
PSID(3) =time of flight (sec) 

I 

TOL 

10 

MCCOM(90) 

TOL(3)^ight time tolerance(sec) 
TOL(6)=total fuel tolerance (kg) 

I/O 

PSI 

10 

MCCOM(IOO) 

PSI(3) = flight time error (sec) 
PSI(6)=total fuel (kg) 

o 

KM 

1 

1 

MCCOM(l52) 

Output key for MDCORS logic 

I/O 

JUMPTF 

1 

MCCOM(l53) 

Logic key for MDCORS & MINTF 

o 

13 

1 

MCCOM(l55) 

Third constraint indicator 

o 

IT 

1 

MCCOM(157) 

Trial counter for MDCORS 

o 

NP 

1 

I MCCOM(160) 

Number of constraints 

o 

KGLAW 

1 

MCCOM(164) 

Guidance law indicator 
Constraint indicator array 

o 

IPD 

3 

liilil 
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Description: 


The mininmm total fuel guidance law solution minimizes total correction fuel subject 
to equality constraints on closest approach distance and inclination. To effect this 
solution, the fixed time of arrival guidance (FTA) law is invoked with systematic 
variation of flight time. MINTF contains the logic for varying flight time to find the 
minimum total fuel solution. 

The first time MDCORS calls MINTF, MINTF sets up indicators for the MFG 
(minimum midcourse fuel) law. When MINTF is called again, the MFG solution has 
been found, with its corresponding values of total fuel and time of flight, MINTF 
initializes the FTA law at this time and requests a flight time increase of 1800 seconds 
on return to MDCORS, On subsequent entries, MINTF seeks the minimum total fuel 
flight time by the following procedure: 


1, If, on return from targeting the FTA law to 1800 , it is found that 

the total fuel is, 

a. less than it was for the MFG solution, flight time is stepped 
forward until the total fuel increases. 

b. greater than it was for the MFG solution, flight time is stepped 
backward in 1800^ - steps until the total fuel increases. 

2. The result of (1) is three values of total fuel, f(t), corresponding to three 
different flight times. These obey the following inequality. 


£ , 5 £ a £ ^, , £ = f + n * 1800®) 

n-1 n n+1 n MFG * 


The three values are used to determine the coefficients of a quadratic equation 
describing total fuel as a function of flight time. This equation is then solved 
for the flight time corresponding to the minimum of the quadratic equation. 
(See MINV for details of fitting a quadratic equation,) This flight time is 
then used for the final FTA targeting step and the resultant total fuel is 
assumed to be the minimum value. 
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SUBROUTINE MINTF 


MFG has now converged, 
set up FTA indicators set 
JUMPTF=2 
I =2 

SS = 1800^ 

= total fuel 


■JUMPTF 


Initialization: Set up 
MFG indicators 


Completed first FTA step 
forward, set I = 3 



I yincreasim 


Start stepping back in 
time I = 1 
SS = - SS 


fuel has decreased 
at least once 


f.<fo 

2 


Minimization has been completed, 
restore KG LAW to 5 and set KM 
to 3 to signal completion to 
MDCORS 


RETURN 


fuel has increased 


fuel is still decreasing 


Fit a quadratic to f , f 
and f , save for SS cor- 

O 

responding to minimiun f 
Set 1=4 


backing 


_3_j^cine^ 


Exchange: 


Exchange: 

=f2 


Change desired flight time by SS 
and return to take another FTA 
ste 
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SUBROUTINE MINV 


Calling Sequence; 

Purpose: 

Common Blocks Required: 
Subroutines Called: 


CALL MINV (ELM, RA, DEC, DVR, DVT, FFERE) 

MINV finds the retro -tiring true anomaly of 
minimum trim velocity. 

CONST, INPUT 

CROSS, DOT, DVMAG, ORBIT, ORIENT, TRIM, VNORM 


Input / Output 


I/O 

SYTvIBOLIC 

NAME 

DIMENSION 

COMMON 

BLOCK 

DEFINITION 

I 

ELM 

12 

ARGUMENT 

LIST 

Orbital elements of the 
hyperbola (LEQ) 

I 

RA 

1 

ARGUMENT 

LIST 

Right ascension of the 
spin-axis (LEQ, rad) 

I 

DEC 

1 

ARGUMENT 

LIST 

Declination of the spin-axis 
(LEQ, rad) 

Hi 

DVR 

1 

ARGUMENT 

LIST 

Retro velocity impulse (km/ sec) 

o 

DVT 

1 

ARGUMENT 

LIST 

Trim velocity required (km/sec) 

O 

FFTRE 

1 

ARGUMENT 

LIST 

Firing true anomaly (rad) 

I 

RAD 

1 


Radians -to -degrees conversion 
factor (deg/rad) 

I 

GM 

12 

ISBRH 

Gravitational constant array 
(km^/sec^) 


TRUE 

1 


Limiting true anomaly allowed 
(deg) . __ 

I 

JT 

hhh 


Target body number 

I 

KFIRE 

■hh 


Number of true anomaly steps 
to try 
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Method 


The method used by MINV in trying to establish the minimum trim velocity and 
corresponding firing true anomaly is: 


1* Step along the hj'perbola in KFIRE regular steps from -TRUE to 

+TRUE, computing and storing required trim velocity at each step. 

2 , Fit a quadratic (trim velocity as a function of true anomaly) about 

the point of least trim velocity as found in procedure 1, Solve for 
the minimum trim velocity and corresponding true anomaly as 
coordinates of the quadratic’s minimum. 


Siibroutine TRIM is used by MIOT to determine the trim velocity. TRIM, when 
supplied with the post-retro orbit (which must be elliptical), computes the trim 
velocity as a two-tmpulse in-plane Hohmann transfer plus a nodal inclination- 
trim impulse, A large part of MINV^s coding is concerned with establishing true 
anomaly bounds within which the post-retro orbit will be elliptical. These bounds 
are determined from the condition. 


V(f) • AV = ^ - P . AV sin f + Q - AV (e + cos f) 




< - 


which must hold in the elliptical range, P and Q are unit vectors toward periapsis 
and along periapsis velocity, respectively, is the hyperbola's and f is true 
anomaly. The other symbols are standard enough. The equation may be solved 
for f (two solutions usually) by replacing the inequality with an equality. If the 
input limits are outside the computed bounds, they are replaced by the computed 
bounds as limits for the stepping procedure ( see 1 above ), 


If the least trim velocity from the stepping procedure occurs at the first or last step, 
this limit value is returned from MIHV, Otherwise, the least trim velocity occurs at 
the i-th point and the quadratic fit coefficients, a, b and c are determined as follows, 


v(f) = a (f-fp + b (f-t) + c 




i+1 i 


i+1 


i+1 
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v<f.) = c = V. 

^ 9" ^ ” <Vr V = ''x-i 




dv 

df 


2 a (f-f.) + b = 0 
1 


or 


f , 

min 



The minimum trim velocity (returned by MINV) is computed by evaluating the 
quadratic for v 
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SUBROUTINE MINV 
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SUBROUTINE MONTE 


Calling Sequence: CALL MONTE 

Purpose: MONTE performs a Monte Carlo analysis of success 

probaDility for the RAE-B mission. 

Common Blocks Required: ANKOR, CONST, INPUT, MCCOM, STATE 

Subroutines:Called: BIGMAT, COVERT, TOWARD, MCBURN, MDCORS, 

MVTRN, M50LEQ, ORBIT, RANDMl, RETRO, SENSO, 
TRIM, VNORM 


Input / Output 


I/O 

SYMBOLIC 

NAME 

DIMENSION 

COMMON 

BLOCK 

DEFINITION 

I 

ANKVEC 

6 


Anchor vector state (km, km/sec) 

I 

RAD 

1 


Degrees per radian 

I 

TDS 

1 


Seconds per day 

■ 

TSH 

1 


Hours per second 

m 

GM 

12 


3 2 

Gravitational constants (km /sec ) 

II 

G 

1 


2 

Earth's surface gravity (km/sec ) 

■ 

TF 

1 

IBSRI 

Trajectory stop time (sec) 


DJL 

1 

IBBBBS 

Julian date at launch (days) 

I 

WO 

1 


Initial spacecraft weight (kg) 

■ 

DJO 

1 


Julian date at anchor 
epoch (days) 

I 

HRO 

1 

ISBSHi 

Hours of anchor epoch 

I 

XMINO 

1 


Minutes of anchor epoch 

■ 

SECO 

1 


Seconds of anchor epoch 

n 

COV 

6,6 


Tracking covariance matrix 

I 

DTFIN 

mHi 


Desired time of flight (seconds) 
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S YM BOLIC C OMMON 

NAJVIE DIMENSION BLOCK 


DEFINITION 

















































SYIVIBOLIC COMMON 

I/O NAME DIMENSION BLOCK DEFINITION 


o 

DV 

1 


Accumulated correction velocity 

I/O 

DPT 

30 


Constraint/control sensitivity 
matrix 

0 

• 

DTF 

1 


Desired time of flight from 
anchor epoch (sec) 

0 

KENTRY 

1 


Entry key for MDCORS 

o 

IR 

1 


Sensitivity generation key 
for SENSO 

o 

NGROPT 

1 


Gradient re -computation key 
for MDCORS 

I 

ISP 

1 


Gradient-calculated indicator 
from SENSO 

o 

X 

6 


Trajectory state (km, km/ sec) 

o 

T 

1 


Time from epoch (sec) 

I 

ATT 

3 


Spin-axis attitude 
(unit vector) 


Description: 

MONTE simulates the events of the RAE-B mission with sampled random errors to 
establish the probability of mission success. The events to be simulated for a given 
case are specified by KMONTE;" 

KMONTE = 1 Retro plus trim only - no midcourses 

KMONTE = ±2 One midcourse correction plus retro and trim 

KMONTE = ± 3 Two midcourse corrections plus retro and trim 

If KMONTE is negative, the first (or only) midcourse correction maneuver is calculated 
for the estimated (anchor vector) trajectory and not re-calculated for sampled errant 
anchor vectors. If KMONTE is +2 or +3, the first (or only) midcourse correction is 
re-calculated for each sampled errant trajectory. The positive KMONTE case is 
applicable to pre -flight studies for which the "tracking" error covariance matrix in 
reality describes expected trajectory dispersions due to expected launch and injection 
errors. 

The event logic as implemented is fairly straightforward as seen in the principal flow 
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chart. Some of the logic associated with midcourse maneuver computation requires 
some explanation, however. In order to avoid redimdant computations in MDCORS, 
the first-maneuver correction impulse is computed and saved for the anchor vector 
trajectory. The constraint/control sensitivity matrix or gradient is also saved. If 
two midcourse maneuvers are simulated, the gradient at the second correction is also 
computed about the once-corrected anchor trajectory and stored. The stored gradients 
are good enough to bring about convergence for the midcourse maneuver calculations 
related to perturbed trajectories, so the gradient re-computation key, NGROPT, is 
set zero for the Monte Carlo process. The first-maneuver correction impulse computed 
for the anchor trajectory is a good first-guess for successive midcourse calculations, 
so the pre-targeting key, MCKLUG, is set zero as well. The first-guess value for 
the second maneuver can be taken as zero if the first maneuver execution errors are 
small. The logic shown in flow charts A and B avoids redundant and time-consuming 
calculations in MDCORS in the computation of midcourse correction maneuvers. 

Error Models 

The tracking error covariance matrix, P, is a 6 x 6 positive definite matrix of anchor 
vector estimation errors, 

P = E (x - X) (x - x)^ anchor vector, x = true state) 

There is a preferred coordinate system in which components of the error vector, y, 
are uncorrelated. The (similarity) transformation between y and x - x is S, an 
orthogonal matrix which diagonalizes P, , 

X - X - S 

y 

The diagonal matrix, D, defined by 
D = S^PS, 

has as its diagonal elements the variances of the uncorrelated components of y. Scaling 
a white noise (uncorrelated random numbers) sampled by the standard deviations of y, 
we obtain an error vector in uncorrelated coordinates with components, yi, 

yi = d. n(0,l) 
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( d. is the i-th diagonal element of D, n (0, 1) is a sample random number from a 
normal (Gaussian) disti'ibution of mean 0 and variance 1.) A sample! errant trajectory 
state is then computed from 

X = X + Sy. 

Execution errors for the midcourse and retro maneuvers are computed from assigned 
standard deviations of pointing and velocity errors. The velocity error is treated as 
a proportional error normally distributed plus a resolution error uniformly distributed. 


~ vcr^n(0,l) + (.0001 km/sec) u 

(v is the velocity impulse magnitude and u is a random number from a distribution 
uniform on the interval [ 5 < u< .5 j ). The retro velocity error is formulated without 

a resolution error. The pointing error is formulated as two independent errors normally 
distributed along mutually orthogonal axes which are both orthogonal to the maneuver 
impulse direction. Let the maneuver impulse be denoted by V and its direction by V. 

A 

If K is the unit polar axis of V*s coordinate reference frame, we can construct unit 
vectors normal to V. 


K X V 

A A 

Kx V 




v cos (dec) 


N 


Vx E 


K- V (K>V) 
cos(dec) 


The "eastward" and "northward" pointing errors, 0 and 0 , are computed by scaling 

e n 

random numbers with the input pointing erros, a » They are then converted to velocity 

a 

deviations using the small angle approximation. 
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The misdirected velocity vector has the direction 


V' = (V V + E + N) / 


and the magnitude v+ e^, so that it may be programmed as follows, 


V + C, 




V (of + 1^) 


1 - 


-^a ^ ^3 
V cos (dec) 


+ 


cos(dec) 


■"lY 
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SUBROUTINE MONTE 
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MDCORS initialization for MONTE 
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SUBROUTINE MOTORS 


Calling Sequence; 
Purpose: 


CALL MOTORS (KMOD) 

This subroutine determines thrusting status 
and increments velocity, or acceleration and 
weight accordingly. 


Common Blocks Required; PERT, CNTRL, INTVAR, STATE, INPUT 


Subroutines Called: 


TABINT 


Input / Output 


1/0 

SYIMBOLIC 

NAME 

pr5'gram 

DIMENSION 

COMMON 

BLOCK 

DEFINITION 

B 

KMOD 

1 

Calling 

Operand 

Impulsive velocity flag 

1/0 

RCART 

3 

PERT(l) 

Perturbing acceleration 
vector 

I 

KDIS 

1 

CNTRL(05) 

Discontinuity 

Flag 

1/0 

KTHRST 

1 

CNTRL(02) 

Thrusting Flag 

I 

KFIRST 

1 

CNTRL(12) 

First step Flag 

B 

T 

1 

INTVAR(l) 

Current time 

1/0 

THRUST 

1 

STATE(33) 

Magnitude of thrust 

IQI 

WT 

1 

STATE(34) 

Weight at engine ignition 

I 

ATT 

3 

STATE(ll) 

Attitude of spacecraft 

0 

W 

1 

STATE(35) 

Current weight 

m 

DX 

3 

STATE(04) 

Current velocity 

I 

DV 

3 

INPUT(430) 

Impulsive velocity 

I 

TIG 

3 

INPUT(380) 

Ignition times 

I 

TBO 

3 

INPUT(383) 

Burnout times 
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Description: The engine characteristics can be simulated by either impulsive velocitj^ 

or input thrust and weight flow histories. If KMOD is equal to 1, impulsive 
velocity is assumed. The impulsive velocity of engine I is applied along 
the current attitude when the current time, T, is equal to the ignition 
time, TIG. 

When IGVtOD is not equal to one, the instantaneous thrust and weight are 
determined from linear interpolation between time points on the input 
tables. Next the magnitude of the acceleration is determined from: 

a =.001 THRUST/WEIGHT. 

The acceleration is added to the total perturbing acceleration vector of 
the spacecraft (PERT) according to the current attitude (ATT). 
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CALL 
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Return 










SUBROUTINE MULCON 


Calling Sequence: CALL MULCON 

Purpose: To propagate the state in time using the 

Multiconic technique. 


Common Blocks Required: CNTRL, CONST, DUM, INPUT, INTVAR, 

PLNET, STATE 

Subroutines Required: AVERGE, DVMAG, OBLATE, ORBIT, PLANET, 

OUTPUT, PRINT, TOBODY 

Reference: D. Byrnes and H. Hooper, Multi-conic: 

A Fast and Accurate Method of Computing 
Space Flight Trajectories, AIAA 
Paper No. 70-1062, 1970. 
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! I/C 

SYMBOLIC 

NA]\IE 

DIMENSION 

COMMON 

BLOCK 

DEFINITION 

I i 

BELT 

10 

INPUT(180) 

Compute Intervals 

T 

DJO 

1 

INPUT(46) 

Epoch of the initial 
state 

I/O 

DX 

3 

STATE(4) 

Spacecraft velocity 

o 

ELM 

6 

STATE(14) 

Orbital elements 

I/O 

JC 

1 

CNTRL(7) 

Central Planet 

I 

JL 

1 

INPUT(1015) 

Launch planet 

I 

— ■ — ^ — 

KCRASH 

1 

INPUT(1032) 

Closest approach flag 

I 

KOBLE 

1 

INPUT(1018) 

Earth oblate ness flag 

I 

KOUT 

1 

mPUT(1030) 

Output frequency flag 

I 

KP 

12 

INPUT{1001) 

Planets in the system 

I/O 

T 

1 

STATE(IO) 

Current time since DJO 

I 

TCOMP . 

10 

INPUT(170) 

Switching times of compute 
interval table 

I 

TF 

1 

INPUT(4) 

Final time 

o 

UJT 

1 

STATE(32) 

Current julian date 

I/O 

X 

3 

STATE(l) 

Spacecraft position 


Theory: 

The Multiconic technique is an approximate technique to determine space trajectories. 
This technique differs from most approximate techniques and more resembles a 
numerical integration method as the independent variable, time, is stepped along and 
the state determined at the end of each step. 


The geocentric equation governing the motion of a spacecraft perturbed by the Sun 
and Moon is as follows: 


R = U e 


R 

,-,3 

iRl 


“ 


m 


m 

[f |3 
I ml 


- M 


R 

m 

m iR }3 


R 


R j 

m» 


- 


l^sl^ 




i^sr 


(1) 


268 



where 


R is the geocentric position vector of the spacecraft, 

R R are the geocentric position vectors of the Moon and Sun, respectively, 
m’ s 

r r are the vectors from the Moon and the Sun to the spacecraft, and 
m' s 

, are gravitational constants of the Earth, Moon and Sun, respectively, 
Me' Mm Ms 

Each term of equations (1) describes an inverse square force and,talcen separately , 
would yield simple conic motion. The Multi conic technique assumes that the 
trajectory can be simulated by sequentially summing these conics over several time 
intervals. However, the terms due to the Sun and the second term due to the Moon 
are slowly^varying functions. Therefore, without any significant loss in accuracy 
and with a substantial decrease in computation time, these terms are simplified. It 
is assumed that the acceleration due to these three terms can be approximated by a 
constant acceleration equal to the average accelerations at the beginning and at the 
end of the step applied over the entire step. 

There is also the problem of separating the Keplerian orbit with respect to the Mooh 
(second term of equation 1) from the other accelerations. Byrnes and Hooper solved 
this problem by flying backwards in a gravity free environment, an increment of time 
equal to the step, dt, and then flying forward along the selenocentric conic, a time 
increment dt. 

The algorithm used to propagate the state from T^ to T^ is as follows: 

1. The positions of the Moon and Sun are stored at time T^. 

2. The geocentric state is propagated along the Earth conic from T to T 

X ^ 

using the Keplerian orbit defined by the first term of equation (1). 

3. The positions of the Moon and Sun are stored at time T^. 

4. The mean acceleration due to the Moon’s indirect term (third term of 
equation 1) is calculated as: 
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5. The mean acceleration due to the Sun is calculated as: 



6, The state at the completion of the Earth conic (Step 2) is adjusted to 
account for the accelerations determined in Steps 4 and 5. The 
corrections are obtained from, 

AV - (a^ + dt 

Ar = -y (a^ + a^) dt^ 

where AY and Ar are the changes in the position and velocity vectors and, 
dt is the step (T^ ~ 

7, The corrected geocentric state is converted to selenocentric coordinates 
and propagated back in time along a straight line defined by the selenocentric 
velocity an amount dt, 

8, The state is then propagated forward along the Keplerian selenocentric conic 
described by the second term in equation (1) from T to T^, This completes 
the algorithm and describes the state at the end of the step. 

During the trans -Earth leg of a circumlunar trajectory, the algorithm is slightly 
modified. The new order is 

1, Forward along the selenocentric conic, 

2, Backward along a straight line. 

3. Apply averaged accelerations. 

4. Forward along an Earth -centered conic. 
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Description: 


The Mulcon subroutine is divided into three parts. The first part initializes the 
necessary flags and constants and determines the compute interval. The second 
part controls the logic flow of the Multiconic algorithm as the translunar leg 
of a trajectory. The third leg controls the logic flow of the Multiconic algorithm 
on the transearth leg of the trajectory. 

The logic flow of this subroutine can more easily be understood by examining the 
accompanying flow chart. The transmoon leg starts at statement 50, If Earth 
oblateness is to be used, the orbital elements are adjusted due to J and the 
spacecraft flown to approximately 5 Earth radii. After that, the Multiconic 
algorithm is applied as described earlier. The test to determine if the space- 
craft passed through pericjmthion or if time is greater than the final time is made 
before statement 31, If these tests are not satisfied, the logic flow transfers to 
statement 10 where the next Multiconic interval begins. If pericynthion is passed, 
the time is adjusted to pericynthion and AVERGE called to reset the averaged 
accelerations. If the KCRASH flag is set to 1 , the state is translated back to a 
selenocentric system and flags set to begin the transearth leg. The transearth 
leg is similar to the translunar leg. Logic for this leg begins at statement 51. 
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MULCON FLOWCPIART 



© 

Transmoon leg 
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CALL T(ZiB^DY (Earth): Fly along Earth 
conic an increment of time DT 



CALL PLANET: Obtain positions of Sun and 


Moon at time T 



CALL AVERGE: Add Sun^s effect and Moon's 


indirect term 



CALL T0B0DY (Moon): Fly along Moon conic 

an increment of time DT > 


/ State ^ 
propagated 


)ericynthioi 
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CALL AVERGE (1): Add effects of disturbing 
acceleration of Sun and Moon^s indirect term 
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SUBROUTINE MVTRN 


Calling Sequence: 


Purpose: 


CALL MVTRN(A,B,C,M,N) 

CALL R0TATE(M, A, B, C) 

T 

To form the matrix product C = AB or C - A B 
where A is a 3x3 matrix and B and C are 
3xN matrices (3x1 in R0TATE). 


Common Blocks Required: None 


Subroutines Called: None 


Input/Output 


1/0 

SYMBOLIC 

NAME 

PROGRAM 

DIMENSION 

COMMON 

BLOCK 

DEFINITION 

I 

A 

9 

Call List 

Matrix multiplier 

m 

B 

3,N 

Call List 

Matrix multiplier 

0 1 C 

t 

3,N 

Call List 

Product matrix 

■ 

M 

1 

Call List 

, , C = AB if M = 1 

Indicator: ^ .T-r* 

C = A-^ B otherwise 

H 

N 

1 

Call List 

Number of columns of B and C 
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SUBROUTINE M50EPM 


Calling Sequence: CALL M50EPM (UJT, C) 

Purpose: M50EPM calculates the transformation matrix 

from the mean equinox and equator 'of 1950 to 
the Earthfe true equator and prime meridian. 

Common Blocks Required: CONST 

Subroutines Required: NUTAIT, M50MDT 

Input / Output 



I/O 

SYMBOLIC 

NAME 

DIMENSION 

COMMON 

BLOCK 

DEFINITION 

o 

C 

3,3 

C ailing 
Operand 

Transformation matrix 

I 

RAD 

1 

HS9SI 

Degrees per radian 

I 

UJT 

1 

Calling 

Operand 

Modified iulian date 


Theory: 

The transformation from mean equator and equinox of 1950 to true equator and prime 
meridian can be accomplished by first transforming to the mean equator and equinox 
of date (Call the matrix [M]) and then from there to the true equator and equinox of 
date (Call the matrix [T]) and finally from equinox to the prime meridian ([P] ). 

Thus, if [C] is to be the transformation from mean of 1950 to true equator and prime 
meridian, then 

[C] = [P] FT] [M] 

Both [T] and [M“J are calculated in other subroutines (NUTAIT and M50MDT respectively). 
The [P] matrix represents the rotation through the GreenAVich hour angle about the 
Z-axis. In general, a rotation through an angle S about the positive Z-axis is accomplished 
through the following matrix 
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■ cos 9 sin 0 0“ 

-sin Q COS0 0 

> 0 0 1 - 

In this case, 0 is the Greenwich hour angle, (GHA), which is given by . 

-13 2 

GHA = 100^075542 + 0<^ 98564735(d) + (2.9015)10 (d) 

+ tt<(t) + (Nutation in right ascension) 

ic is the angular velocity (deg/sec) of the Earth and is given by 
to - .0041780742 / ^1. + (5. 2l)10“^^ (d)^ 

d is the number of whole days since 1950. 

t is the fraction of days (i.e. modified Julian date 

- 33282.5 = d + t) 

The nutation in right ascension is element (2, 1) of the matrix 
[T] from NUT AIT. 

The three matrices are multiplied to give the total transformation 
matrix [C]. 

Description: 

M50EPM calculates the transformation matrix from the mean equator and equinox 
of 1950 to the Earth's true equator and prime meridian. This transformation is 
composed of three separate transformations. 

The first transformation is from mean of 1950 to mean of date. This matrix is 
calculated in M50MDT. The second transformation is from mean of date to true 
equator and equinox of date. This matrix is calculated in NUTAIT. The third 
transformation is from true equator and equinox of date to true equator and prime 
meridian. This matrix is set up in this subroutine and consists of a rotation about 
the z-axis (North Pole) through the Greenwich hour angle. Once these transformation 
matrices are found, they are multiplied together to form the total transformation. 
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SUBROUTINE M50EPM 
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SUBROUTINE M50JPM 


CALL M50JPM (UJT, B, J) 

M50JPM calculates the transformation matrix 
from Earth mean equator and equinox of 1950 
to true equator and prime meridian of date with 
respect to planet J. 

CONST 

M50EPM, M50LEQ, M50MDT 


Input/Output 


SYMBOLIC COMMON 

I/O NAME DIMENSION BLOCK DEFINITION 

0 

B 

3,3 

Calling 

Operand 

Transformation matrix 

T 

J 

1 

Calling 

Operand 

Planet number 

I 

■ RAD 

1 


Degrees per radian 

I 

TDS 

1 


Seconds per day 

I 

UJT 

1 

Calling 

Operand 

Modified Julian Date 

■ 

WP 

12 


Spin rate of planets (rad/ sec) 


Calling Sequence: 

Purpose: 

Common Blocks Required: 
Subroutines Required: 


Theory: 

The transformation from Earth mean of 1950 to true equator and prime meridian of 
date with respect to the desired planet is composed of two separate transformations. 

The first of these. Earth mean of 1950 to Earth mean of date, is calculated and explained 
in M50MDT. The second. Earth mean of date to true equator and prime meridian of 
date, with respect to the desired planet, is explained here. 

The tranformation, T, involves three rotations about three axes. 
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where 


CR and SR represent the cosine and sine of RA +90^ respectively 

CD and SD represent the cosine and sine of 90° - DEC respectively 

CP and SP represent the cosine and sine of PHE respectively 


and 

RA and DEC are the right ascension and declination of the planet’s spin axis 
with respect to Earth mean equator and equinox of date* 

PHE is the angle to the planet’s prime meridian from the ascending node of 
the planet’s equator on the Earth’s equator. 

The values of RA, DEC and PHE are calculated through equations of the type 
C(=(x^+6i (t- y 

where is the value of oi at t^ and ^ is the rate of change of ci with respect 
to time* 


The following constants are used for a 


and , 



“o 

t^ (modified Julian <kte) 

a 

RA 

317 .°3 

. 16846.024 

6. 751 X 10 ^/year 

DEC. 

52?T 

16846.024 

3.° 46 X 10 ^ /year 

i PHE 

344.° 41 

18322. 

*70882 X 10 "^rad/sec 


JUPITER 


“o 

t^(modified Julian date) 

Ot 

RA 4.6775435 rad 

18673. 

* 102917 X lO”^ rad/year 

DEC 1. 126778 rad 

18673. 

.29089 X 10~^ rad/year 

PHE* 344?41 

18322. 

. 175849 X 10 ^rad/sec 


*Note: The surface features of Jupiter are relatively unknown, so that the location 

its prime meridian is a matter of speculation. For this reason, its initial position 
is set equal to that of Mars, 
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Description: 

M50JPM calculates the transformation matrix B from Earth mean of 1950 to 
true equator and prime meridian of date with respect to planet J. The date is 
given in terms of the modified Julian date UJT. At present, only the following 
planets may be used: Earth, Moon, Mars, and Jupiter (i,e, , J — 3, 11,4 and 5 
respectively). 

Subroutines M50EPM and M50LEQ calculate the matrix B for the planet Earth 
and the Moon respectively, thus the calculation of B for Mars and Jupiter 
represents the bulk of M50JPM. These calculations are done in three main 
steps. First, the right ascension and declination of the planet's spin axis with 
respect to the Earth mean equator and equinox of date are found in addition to the 
angle of prime meridian. These angles represent rotations which mal^e up the 
transformation from Earth mean of date to true equator and prime meridian of 
date with respect to the planet. Second, the transformation from Earth mean of 
1950 to Earth mean of date is calculated in M50MDT, Third, these matrices are 
multiplied to give the total desired transformation. 
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SUBROUTINE M50LEQ 




I \ SYMBOLIC 

! I/O ! NAME 


SELNEQ 


UJT 


DIMENSTION 

COMMON 

BLOCK 

DEFINITION 

3,3 

Calling 

Operand 

Transformation matrix 

1 

Calling 

Operand 

Modified Julian Date 


Theory: 

Ths transformation from Earth mean of 1950 » 0 to true lunar equator and prime meridian 
can be broken up into three transformations; (1) Earth mean equator and equinox of 
date to true lunar equator and ascending node, (2) Earth mean equator and equinox 
of 1950 to Earth mean equator and equinox of date, (3) True lunar equator and 
ascending node to true lunar equator and prime meridian. 

The matrix for the first transformation is calculated in subroutine NUTATE, and the 
theory is described there* 

The second matrix describes the precession of the Earth's mean equator since 1950.0. 
This precession is defined by the three small Euler angles 

fy = 2304.” 997 (T) + 0."302(T)^ + 0.”019(T)^ 

0 = 2304.” 997(T) + l.”093(T)^ + 0V0192(T)^ 

y = 2004.” 298(T) ^ 0V426(T)^ + 0.”0416(T)^ 
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The transformation A is defined by the three rotations 


A 


cos 8 -sin 8 ^ 

sin cos 0 

0 0 1 


cos y 0 -siny 

0 10 
sin y 0 cos ^ 


cos a -sino: 0 

sin a cos a 0 
0 0 1 


The elements of [a ] may be expanded in powers of T to yield: 


11 


12 


13 


22 


23 


33 


1-. 00029697 (T)^ - (0.13) 10 ^ (T)^ 

-a = - .02234988(T) ~ (0.676) 10 ^ (T)^ + (0.221)10 ^ (T) 
2 1 

-a = - . 00971711(T) + (0. 207)10”^ (T)^ + (0. 96)10 (T) 

3 1 

l-.00024976(T)^ - (0.15)10“^ (T)^ 

a = -.00010859 (T)^ - (0.3) 10"'^(T)^ 

32 

l-.00004721(T)^ + (0.2)10"'^ (T)^ 


The third transformation involves the simple rotation about the Z-axis (perpendicular 
to the true equator of date and positive up) from the ascending node to the prime 
meridian. The angle between the ascending node and prime meridian is calculated 
in NUTATE, and its derivation is described there. If the angle is 5, the rotation 
matrix is 


B 


cos 6 
-sin § 
0 


sin 6 
cos^ 
0 


0 

0 

1 


Once these three matrices have been calculated, the total tx'ansformation matrix is 


[t] = [b] [n] [a] 

where [n] is the matrix from NUTATE (for the transformation from Earth mean 
of date to true lunar equator and ascending node). 
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Description: 


M50LEQ first calls NUTATE to get BUMROT, the transformation matrix from Earth 
mean eqaator and equinox of date to Moon true equator with the ascending node on 
the ecliptic. Also output from NUTATE is RAPM which is the angle from the lunar 
equator ascending node on the ecliptic to the prime meridian. 

The next step in the transformation is obtaining the transformation matrix A from 
Earth mean of 1950.0 to Earth mean of date. Then A is multiplied hy BUMROT to 
get DUMROT, which is the transformation matrix from Earth mean of 1950.0 to 
Moon irue equator and ascending node. 

The final transformation needed is from ascending node to prime meridian in the 
Moon's true equator of date. This involves a simple rotation about the Z-axis 
(perpendicular to the true equator and positive up) through the angle RAPM. This 
matrix is stored in BUMROT. 

The final step is the multiplication of DUMROT by BUMROT which is stored in 
SELNEQ and is output as the total transformation matrix. 
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SUBROUTINE M50MDT 


Calling Sequence: CALL M50MDT (T, A) 

Purpose; M50MDT calculates the transformation matrix from Earth 

mean equator and equinox of 1950.0 to Earth mean equator 
and equinox of date. 

Common Blocks Required: None 

Subroutines Required: None 


Input / Output 



I/O 

SYMBOLIC 

NAME 

DIMENSION 

COMMON 

BLOCK 

DEFINITION 

0 

A 

3,3 

CALLING 

OPERAND 

Transformation Matrix 

I 

T 

1 

CALLING 

OPERAND 

Modified Julian Date 


Description: 

M50MDT calculates the time in Julian centuries and then calculates the elements of 
the matrix as polynomials in time. 


Theory: 

The transformation from Earth mean equator and equinox of 1950.0 to Earth mean equator 
and equinox of date is accomplished by three rotations through three Euler angles that 
represent the precession of the Earth since 1950.0. 

The three angles are as follows: 

a = 2304. ” 997(T1) + 0." 302 (Tl)^ + 0;’019(T1)^ 

R = 2304. ”997(T1) + l."093(Tl)^ + 0. ’^0192(T1)^ 

V = 2004."298(T1) - 0.”426(T1)^ + 0. "0416(T1)^ 
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where T1 is the time in Julian centuries since the beginning of the Besselian 
year 1950. 


The transformation matrix [a] is defined by 


A = 


f cos ft -sin ft O' 


cos y 0 -sin y 

( 

sin ft cos 5 0 


0 10 


I 

1— 1 
o 

o 

I 


sin V 0 cos y 



-sin a . 0 
cos OL 0 

0 1 


The elements of A may be expanded into the following polynomials of Tl: 


a^l = 1-. 00029697(T1)^ - (0.13) 10 ^ (Tl)^ 

a = -a = -.02234988(T1) - (0.676)10'^ (Tl)^ + (0.221) 10^^ (Tl)^ 

Lx J. 

a = = -.00971711(T1) + (.207)10“^ (Tl)^ + (,96) lO"^ (Tl)^ 

XO O J. 

2 -6 3 

a = 1- .00024976(T1) -(0.15)10 (Tl) 

2 —7 3 

^23 =a = -.00010859(T1) - (0.3) 10“ (Tl) 

2 -7 3 

a = 1-.00004721(T1) +(0.2)10 (Tl) 

OO 
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SUBROUTINE NUTAIT 


Calling Sequence: 
Purpose: 


Common Blocks Required: 


CALL NUTAIT (TIME, EN) 

NUTAIT calculates the matrix for the transformation 
from Earth mean equator and equinox of date to Earth 
true equator and equinox of date 

None 


Subroutines Required: None 


Input / Output 



1 SYMBOLIC; 

I/O ■ NAME ^DIMENSION 

COMMON 

BLOCK 

DEFINITION 

O 

EN 



Transformation Matrix 

WM 

TBIE 

1 

Calling 

Operand 

Days since 1950.0 


Description: 


NUTAIT calculates the mean longitude of the Sun and Moon (VL & CR) and the mean longitude 
of perigee of the Sun and Moon (G & GP) as functions of time. Then the nutations of the 
obliquity of the ecliptic and longitude of the Sun (DE & DT) are calculated as functions of 
VL, CR, G and GP. The mean obliquity of the ecliptic is calculated as a function of time, 
and then the elements of the matrix are calculated and stored in EN for output. 


Theory: 

The transformation from mean equator to true equator can be approximated by 


EN 


1 

dL cos c 
6L sin e 


-6L cos (c ) - 6L sin (e) 

1 -6r 

6c 1 
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where the nutations 5L aJfid 6c are given by 

acxlO^ = 25?5844 cosQ+ 0? 2456 cos 2 

-0?2511 cos 2 0 + 0?0508 cos (2L - O) 

+1?5336 cos 2L + 0?0369 cos (3L^- f) 

+0.^0666 cos (3L -D - 0. 0139 cos (L +D 
-0?0258 cos (L +f ) - 0^086 cos (L^'-f +0 ) 
-0?0183 cos (2L -O) + 0? 0083 cos (L^f 
-0^0067 cos (2f - O) + 0? 0061 cos (3L + f ~2L ) 

+ 0^ 0064 cos (3L^- f - H ) 


6L X 10 


and 


- {47.^8927 + 0,0482 T) sin O - 0.^5658 sin (2L^) 

- 0.^0950 sin (2L - 0) 

- 0.%725 sin(3L -f) 

+ 0?0317 sin (L'^+ T ) 

+ 0.^0161 sin (L^-f + 0) 

+ 0?0l58sin (L - F - 0 ) 

- 0?0144 sin (3L^+f - 2L ) 

- o!o 122 sin (3L^-f -0) 

+ 0?1875 sin (L^- f ) 

+ 0.0078 sin {2lf - 2 t) 

+ 0?0414 sin (L^+ F - 2L ) 

+ 0?0167 sin (2f/- 2 L ) 

- 0?0089 sin (4 L - 2 £ ) 

L^= 64?37545167 + 13?1763965268 d ^ 3 

- ,^001131575T - .%0113015 T + . 019 x 10 T 

L - 280?08121009 + 0^9856473354 d 

o 2 

+ 000303T + . 000303T 

f'" = 208^8439877 + 0^ 1114040803 d 

- ?01334T - ?010343T^ - ?12 x lo”^ 

0 = 12?1127902 - 0?0529539222 d 

+ ?0020795T + ?002081 + ?02 x 10 


+ 0.^5800 sin (20) 

- 3. *^53 61 sin (2L) 

- 0.^1378 sin (3L - f ) 

+ 0. 0594 sin (L + F ) 

+ 0?0344 sin (2L - 0 ) 

+ 0?0125 sin (2 l'"- 0) 

+ 0?3500 sin (L - F) 

+ 0?0125 sin (2L ^ 2 F) 
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f = 282?08053028 + 0?470684 x lo“^ d 

+ ?00045525T + ?0004575T^ + ?03 x 10~^ 

e = 23?4457587 - 0?01309404T - ?0088 x 10~^ + ?0050 x 


where the above symbols represent the following quantities, 


Symbol 

L 

r 


e 


Quantity 

Longitude of Sun, from the equinox of date 

Longitude of perigee of the Sun 

Longitude of the Moon, measured in the 
ecliptic from the mean equinox of date to 
the ascending node of the lunar orbit, and 
then along the orbit. 

Longitude of the perigee of the Moon, 
measured as L^ 

Obliquity of the ecliptic 


n 


Longitude of the ascending node of the Moon's 
orbit on the ecliptic 


d Time in days since 1950.0 

T Time in Julian centuries since 1950.0 


Note: Barred quantities are mean values and 6L represents the nutation in longitude of 
the Sun and 5c represents the nutation in obliquity. 
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SUBROUTINE NUTATE 


Calling Sequence: CALL NUTATE (K, TW, TF, TN, TM, RA, MG) 

Purpose: To compute the transformations from Earth's mean 

equator, equinox to Earth's and Moon's true equator, 
equinox and equator, node. 


Common Blocks Required: None 


Subroutines Required; None 


Input / Output 







I/O 

SYMBOLIC 

NAME 

DIMENSION 

COMMON 

BLOCK 

DEFINITION 

I 

K 

1 

ARGUMENT 

LIST 

Output option key. 

I 

BmiH 

1 

ARGUMENT 

LIST 

Whole and fractional days since 
1950.0, days 

0 

TN 

3,3 

ARGUMENT 

LIST 

Earth's transformation matrix 

O 

TM 

3,3 

ARGUMENT 

LIST 

Moon's transformation matrix 

o 

RA 

1 

ARGUMENT 

LIST 

Right ascension of Moon's prime 
meridian, rad. 

0 

OMG 

1 

ARGUMENT 

LIST 

Moon's rotation rate, rad/sec 


Output Options 

If K = 1, only TN is computed, and the limar orientation variables TM, RA, OMG are 
ignored. 

If K = 2, TM, RA, OMG are computed, and the Earth orientation matrix, TN, is ignored. 
If K = 3, all list items are computed. 

Equinox Coordinate Systems 

Reference: Holdridge, D. B. , "Space Trajectories Program for the IBM 7090 Computer. ” 
JPL Technical Report No. 32-223, Pasadena, California, March 2, 1962. 
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The cartesian coordinate systems defined using the vernal equinox and ecliptic or 
equatorial planes, and the transformations relating those systems are described 
below. Numerical expressions for the angles defining relative orientations are 
taken from the cited reference, though different computational forms are used. 

For completeness, the orientations of body-fixed systems are also treated here. 

1. Notation 

The S 3 rmbols used for the angles follow the general rules: 

a. Quantities not otherwise noted are true values of date. 

b. Quantities superscribed by a bar are mean values, 

c. Quantities subscripted "50” are 1950.0 values. 

d. The prefix "d" denotes a nutation or libration in the 
quantity prefixed. 

In general, quantities defining Earth-Moon relationships use the symbol primed of 
the equivalent quantity from the Earth-Sun relationships. Unless otherwise stated, 
longitude is measured in the Earth’s ecliptic, from the vernal equinox, and right 
ascension is measured in the equator, from the vernal equinox. 

For each of the coordinate systems, the z-axis is taken normal to the reference 
plane, positive in the northern hemisphere, and the x-axis is taken along the 
reference direction in the reference plane. 

The reference direction is the vernal equinox for the Earth-equinox systems, and the 
descending node of the Moon's equator on the ecliptic for the Moon-equinox systems. 
For the body-fixed systems, the reference direction is the prime meridian of the body. 

A list of symbols is given in Table 1. The symbols used by the reference are also 
shown for ease of reference, 

2. Equations 

The computational equations are based on the equations given by the cited reference. 
Numerical values are taken from that report, but the form of many of the equations 
has been changed. 
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2. 1 Earth's Mean Equator, Equinox of Date 


The precession of the Earth's equator is defined by the small angles 

r = 23041' 997T + 0'.’ 302T^ + 0l'0179T^ 

^ o 

2 3 

z = 2304l'997T + ll'093T +0V0192T 
e = 2004l'298T - 0i'426T^ - 0”0416T^ 



The transformation 



-cos z 

-sin z 

0 - 


'COS 9 

0 

-sin 0 ' 


rcos r 

-siiT 

^o 

0" 

sin z 

cos z 

0 


0 

1 

0 


sin 

^>0 

cos C 
^o 

0 

. 0 

0 

1 - 


.sin 9 

0 

cos 9 - 


- 0 

0 

1- 


may be expanded in powers bt T. with the result 

= - - 0.00029697T^ - O.OOOOOOIST^ 

2 3 

= -a^^ - 0.02234988T - 0.00000676T + 0,00000221T 

2 3 

a = -a = - 0,009717UT + 0.00000207T +0.00000096T 

Xo O X 
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= 1 - 0,00024976T^ - O.OOOOOOIST^ 


a = a = - 0.00010859T^ - 0,00000003T^ 
23 32 

2 3 

a = 1 - 0.00004721T + 0,00000002T 
33 


given by the reference. 


2.2 Earth's True Equator, Equinox of Date 

The transformation from mean equator to true equator is approximated by 


6L cos c 
§ L sin c 


-6‘L cos e 
1 
6e 


- 6 L sin e 

-6e 

1 


where the nutations 6 L, 6 c are given by 


25? 5844 cos 0 

+ 0?2456 cos 2L, 

-0?2511 cos 20 

+ 0?0508 cos (2L^- 0) 

+1?5336 cos 2L 

+ 0?0369 cos (SL""- f ) 

+0?0666 03S(3L-f) 

- 0?0139 cos (l"+F^ 

-0?0258 cos (L+f^ 

-0?0086 cos (L^- f + 0) 

-0?0183 cos (2L-Q + 0?0083 cos (L^- F - 0) 


-0?0067 cos (2f^HQ) + 0?0061 cos (3L^+f ~ 2L) 
+ 0?0064 cos (3L^~ r - O) 


6L X 10^ = -(47^8927 + 0.0482T) sin Q - 0?5658 sin 2L 


- / 


+0?5800 sin 20 
-3?5361 sin 2L 
-rf! 1378 sin (3L - f ) 
+0?0594 sin (L + f) 
-H)?0344 sin (2L, - D) 


- 0?0950 sin (2L^- O) 

- CU0725 sin 

+ 0^0317 sin (L +f)" 

+ (f. 0161 sin (L^- r + Q 
+ 0^0158 sin (L^-f -Q 


(4i 


(5) 
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+0.0125 sin (2r-a) 
+<P.3500 sin (L - f) 
+0?0125 sin (2L - 2f ) 


- 0%144 sin(3L+f-2L) 

o — / — ~ 

- 0.0122 sin (3L -T-O) 

+ 0® 1875 sin f ^ 

+ 0^0078 sin (2L - 2f ) 

+ 0^. 0414 sin (L + f 2L) 

+ 0%167 sin (2L^ 2L) 



-^.001131575T - ® 00113015T^ + <>. 019xl0”^ 


L = 280?08121009 + 0^9856473354d 
+®. 000303T + 000303T^ 

f^= 20^.8439877 + of! 1114040803d 

010334T - ^.010343T^ - 12xlO"^T^ 

n = 12*; 1127902 -0? 0529539222d 

+? 0020795T + ®.002081T^ + ®.02xl0’^T^ 
f = 282%8053028+ 0? 470 684x10 "^d 

+° 00045525T + 0004575T^ + 03xl0“^T^ 


( 6 ) 
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€ = 2^.4457587~0%1309404T -^.0088xl0~^T^ +%050xl0"^T^ 

Equations (5) are computationally inefficient, requiring the evaluation of 39 sines 
and cosines. The subroutine NUTATE computes the transformation by computing 
the sines and cosines of the angles c, H, T-Q , L-f^r-O, L“0, with the 
remaining sines and cosines computed by trigonometric identities. 

2,3 Earth»»Fixed 

The transformation from true equator, equinox of date to Earth-fixed coordinates is 


T = 


- cos ^ sin ^ 0 “ 

-sin I cos ^ 0 

- 0 0 1 - 


where 

i = 100^07554260 + 0?9856473460[d] 

+ (2° 9015)10"^^ [d]^ + wt 

CO == 0.00417807417/(1 + (5.21)10“^^ [d] ) deg/ sec 
64 ” dL cos c 

C = 1+6$ 

The nutation in right ascension, 64 is the element n of the nutation matrix, 

^ X 

equation (4), 


( 7 ) 


( 8 ! 


2.4 Moon’s Equator, Node of Date . 

The transformation from Earth^s equator, equinox to Moon*s equator, node may 
be written as shown on the next page : 
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M = 

- cos ^ 

sin A 



‘1 

0 

0 - 


' cos Q 

sinO 

0 ■ 


-sin A 

cos A 

0 


0 

cos i 

sin i 


-sinO 

cos n 

0 


_ 0 

0 

1 _ 


-0 

-sin i 

cos i- 


0 

0 

1 _ 


as in the reference, or 


M = 

'1 0 0 ' 

• 

-cos (D + 6L) - sin (Q + 6L) 0 


0 cos e * sin e ' 


sin (H + 6L) - cos (H + 6L) 0 


0 -sin e * cos e^. 


0 0 1. 


” 

10 0 
0 cosf sine 
0 -sine cos e 

where 

e' = c + 6e' 
e = e + 66 
O = Q + 


( 10 ) 
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Retaining linear terms in 6c, 6L 


M = M 


— 




F- 


” 




- 

1 

0 

0 


-cos O 

-sinP 

0 


1 

0 

0 

0 

cos 

sin (f' 


sin n 

-cosQ. 

0 


0 

cos c 

sin e 

0 

-sin e' 

cos 


0 

0 

1 


0 

-sin if 

cos c 

_ 


• 


_ 








where N is the nutation matrix (4), Clearly, Mis the transformation from Earth's 
mean equator, equinox to Moon's true equator, node. 


The Earth's mean obliquity, e , is given by (6), The mean inclination of the Moon's 
equator with the ecliptic, cT is 


e" = 1^535 

and the librations in inclination and longitude are 

6c^ =-0.0297222 cos (L" ~ f ) +0,0102777 cos 20) 

-0,00305555 cos (2L^ - 2Q) 

60 = CSC |-0, 0302777 sin (L^- f ) + 0,0102777 sin (L'^+F - 2 
-0,0030555 sin (2L^- 2n)| 

The transformation M is computed by subroutine NUTATE. 


2. 5 Moon- Fixed 

The transformation from Moon's equator, node of date to equator, prime-meridian is 


L - 


cos T'' 
-sin 


sin 0 

cos 0 

j 


L 0 


0 1 



where 


r' = a 

6l" = -o! 003333 sin (l'- T ) + ot 0163888 sin (L - f ) 

+ 0„005 sin {2V- 

The angular velocity of the Moon is the vector sum of the angular velocities 

1. L'^ - n about the Moon^s polar axis, and 

2. n about the normal to the ecliptic. 

Since the inclination of the two axes is cT the angular velocity is 


<0 = 0 

- n sin 

(L^ - O) + 0 cos 

’ — 

in equator, node components. 

Subroutine NUTATE computes the polar component 

0}'' = {if ” h + h cos (') 

from 

n (1-cos Seisin € ^) 

1-cos = .000358852 

sinc^= .026787599 

= 0.266170762x10“^ ~0.12499171xl0~ T (rad/ sec) 

- -7 -13 

a = -0.106969844x10 + 0.23015329x10 T 

# /• -9 -10 - 
6L = -0,1535272946x10 cos (L - T ) +0, 569494067x10 cos (L - T) 

+0.579473484x10“^^ cos(2f-20) 


(14) 


(15) 


(16] 
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fQ = -0. 52064219 cos (£'- f ) +0, 181177445x10“*^ cos (L + f -20) 

-7 -/ 

-0.106405786x10 cos (2L -2 0) 

Retaining nine significant figures, 

0 )'= 0.266171146x10“^ - .13499x10“^ cos (L^- 

-10 - - -11 -/ - / 
+.5695x10 cos (L - r) -.645x10 cos (L + F -2 O) 

+.380x10 cos (2L^- 2 0)+ .579x10 cos (2F- 2Q 

+ 6c' j^o 139. 10“^ cos (l' - f') -.485x10“^ cos {L'+f^- 20) 

+.285x10“^ cos (2L - 20)1 
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LIST OF SYMBOLS 


Symbol Reference 


Quantity 


L L Longitude of the Sun, from the equinox of date, 

f r Longitude of perigee of the Sun. 

g g'' True anomaly of the Sun 

L Longitude of the Moon, measured in the ecliptic 

from the mean equinox of date to the ascending 
node of the lunar orbit, and then along the orbit. 

Longitude of perigee of the Moon, 
measured as L. 


S 


g 


c e 

I 


0 ) 




True anomaly of the Moon, 

Obliquity of the ecliptic. 

Inclination of the Moon’s equator with 
the ecliptic. 

Angular velocity of the central body about 
its north polar axis. 


? 4 


Right ascension of the prime meridian 
(hour angle of the vernal equinox). 


n 


a 


Longitude of the ascending node of the Moon’s 
orbit on the ecliptic. 


M CO Argument of perigee of the Moon. 

P 

i i Inclination of the Moon’s equator with the 

Earth's equator, 

q' Right ascension of the ascending node of the 

Moon’s equator on the Earth’s equator. 


A 


A 


Arc in the Moon’s equator from the Earth’s equator 
to the ecliptic. 
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Symbol 


Reference 


Quantity 



A- A 

Right ascension of the Moon's prime meridian, 
from the ascending node of the Moon's equator 
on the ecliptic. 

6 L 

6>^ 

Nutation in longitude of the Sun 


64 

Nutation in right ascension of the prime 
meridian. 

an 

a 

Libration in longitude of the ascending node. 

6L 

t 

Libration in longitude of the Moon. 

6e' 

bi 

Libration in inclination. 

6c 

5c 

Nutation in obliquity. 

90® + z 

90® + z 

Right ascension of the mean equator of 1950, 
from the mean equinox of date. 

90® -r 

90® - r 

Right ascension of the mean equator of date, 
from the mean equinox of 1950. 

9 

G 

Inclination of the mean equator of date with the 
mean equator of 1950. 
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SUBROUTINE OBBATE 


Calling Sequence: 
Purpose: 


Common Blocks Required: 
Subroutines Required: 
References: 


CALL OBLATE 

This subroutine calculates the approximate 
effect of the Earth ^s gravitational term 
on a trajectory. This subroutine is 

used with the Multiconic propagator. 

CONST, DUM, INPUT, STATE. 

ORBIT, TRMN. 

Paul Penzo, Computing Earth Oblateness 
Effects on Lunar and Interplanetary 
Trajectories, AIAA paper No, 70-97, 
January, 1970. 


Inputs / Outputs 


I/O 

SYMBOLIC 

NAME 

PROGRAM 

DIMENSION 

COMMON 

BLOCK 

DEFINITION 

o 

AM 

1 


Mean anomaly at end of step 

0 

ELM 

12 

BHSnili 

Orbital elements and sines and 
cosines of elements of state 

HI 

GME 

1 


Earth's gravitational constant 

0 

PM 

f 

1 


Reciprocal of spacecraft's 
mean motion 

■ 

T 

1 


Time since state epoch 

■ 

TF 

1 


Final time 

■ 

X 

6 


Spacecraft's position and 
velocity vectors. 
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Theory: 

The approximate effect of J on the orbital elements is determined in this subroutine. 
The time derivatives of the angular elements can be expressed by; 


di „ r cos 8 
dt h 


A 

n 


dO_ r sin0 A 
dt h sin i ^ 


( 1 ) 


dta = -cos i 
dt dt eh 


P cos f A - (P+r) sin f A, 
r t 


where, ’ r = radial distance 

f = true anomaly 
iO= argument of perigee 
i = inclination 

n = longitude of the ascending node 

e = <*> + f 

h = angular momentum 
e = eccentricity 
P = semi-latus rectum 

and where A , A , A are the components of the disturbing acceleration caused by 
r t n 

Earth oblateness, see Figure 1. Z 
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It is more convenient to exchange the true anomaly for time as the independent 
variable. To do this, the expression for angular momentum may be used, as 


then, 


di _ ^ ^ _ __ 

dt df dt r^ df 


^ 2 df 

dT 


h di 


( 2 ) 


Similar equations are used for the other elements. Thus equation (1) becomes. 


df 


r cos A 

— ^ n 


dO ^ r sinQ 

df , 2 . , 
h sin i 


n 


(3) 


do3 cos i dO • r 
df df 


P cos f A - (P + r) sin f A^ 
r ' t 


The acceleration due to the second harmonic term is given by, 


n 


- 3 u J_ r 
^ 2 eg 

4 

2 r 


„ . 2 . . 2 . 
- 3 sin y sin i 


sm y 
sin Q 


. 2 

sin 1 
2 

sin 1 


(4) 


where is the Earth's gravitational constant 

r is the Earth's equatorial radius 
eq 

=-0010823 


The substitution of equation (4) into equation (3) provides the final form of the 
derivatives of the orbital elements. The only variable remaining besides f and 
S is r. However, r can be eliminated by the use of 


r = 


1 + e cos f 


(5) 
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Now, equations (3), (4) and (5) can be combined and analytically integrated to 

provide the effects of J on the orientation elements. Since the changes in the 

elements are small through the integration interval, the orbital elements can 

be held constant during the integration for a first approximation to their variations. 

Thus, the variation in the elements becomes, 

1 2 e 3 e 3 

/^i = K sin i cos i ~ sin 0 - — cos cocos 0 + “ sin cosin 0 

^ <5 ^ 



A n ” K cos 


1 e . 3^ . 3 

~ ( 0 - sin 0 cos S) +- (cos co sin 0 + sm cocos 0) 

. 3 1 

+ e sin CO sin 0 


( 6 ) 


where 


A CO = “ cos i A n + A 


K = -^2 "eg 




e 


-K r _ 3 .2 

= e( 1 - - sin i) f 

2e ^ 


3 2 e^ 2 

+ (1 + “ c ) sin f^+ e sin f cos f + cos f sin f - 


K 2 

^ sin i sin co cos co 
^0 


4 cosf + 3 e cos f 


2 2 3 4j> 2 5 

-J ( 7-e ) cos f - 6e cos f -2e cos f 


0 


• / 
an 1 j 


K 2 / 2 

+ — sin i I A sin f + B sin f cos f + C cos f sin f 
2e 

f 


3 4 11 

+ 3 D cos f sinf + eD cos f sin f f - 

^0 
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where 


A 

B 

C 


i ( 7 + 2e^) cos^ ^ ( 1 + 2e^ ) ain^cj 
3 2 


3 


“ (e^ -7) cos^cj +~ (7 +2e^) sin^ co 
3 3 


D = -e (cos^oj - 


. 9 

sin^ oj 


The in-plane elements, e and p, are determined if the energy, c, and the angular 
momentum, h, are known. The variation in the energy is determined since the 
force field of an oblate Earth is derivable from a potential function. Considering 
only the second harmonic term, the energy per unit mass is, 

2 2 

c = — - — - (1-3 cos2(* ) (7) 

2 r 


where is the colatitude. The Keplerian portion of the energy remains constant. 
Thus, the variation in energy is only the third term of equation (7), or 


AC - 


- p r 

? ( 1 - cos^fp ) 

2 r3 


(8) 


0 


The angular momentum does vary and -its derivative is given by. 


d h - - 

— = r X r 

However, since the potential has no. longitude dependence, the z - component of 
the derivative in equation (9) is zero. As seen from Figure 1, the z - component 
of the angular momentum is given by. 
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h cos i 


h = 
z 


then 


d h 
z 

dt 


dh di 

— cos i - h sin I = 0 

dt dt 


(10) 


Thus, the variation in the magnitude of the angular momentum over the same 
interval as A i is, 

h = h tan i Ai 


The elements at the end of a step can now be obtained from, 

i^ = i +Ai 

fL = n + Art 

= a> + A<*> 


where 

the subscript 1 denotes the values at the end of a step, and 

Cl = Ck+ AC 

C^ is the Keplerian energy 

hi = h + Ah 


Description: 

The variations in the orbital elements are determined in a straightforward manner 
from the above equations. The initial state is brought into the routine as position 
and velocity vectors in x of STATE common. 
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The orbital elements are determined using subroutine ORBIT. Next, the true 
anomaly f, and oj + f are determined at the beginning and at the end of the step 
and stored in the arrays F and THET, respectively. The variation in co, i and 
r is determined in the DO 2 loop, where the index refers to the limits of integration. 

The variation in the energy and angular momentum is calculated from equations 
(8) and (11). Finally, the orbital elements at the end of a step are determined from 

equation (12) , 

If the time at the end of the step is greater than the final time, logic flow transfers 
to statement 5 where an iteration scheme is employed to determine the radius cor- 
responding to the final time. 

The position and velocity vectors, mean , anomaly, and reciprocal of the mean 
motion are determined at the end of the step before the subroutine terminates. 
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SUBROUTINE OBLATE 



> TF 


iteration for 
final time 
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SUBROUTINE OBLE 


CALL OBLE 

This subroutine calculates the oblateness accelerations 
of the Earth. 

CONST, CNTRL, GRAVTY, STATE, PERT 
M50MDT, NUTATE, ROTATE 


Input / Output 


I/O 

SYMBOLIC 

• name ' 

• • DIMENSiON 

COMMON 
BLOCK 

; 

DEFINITION 

wM 

.GM 

12 . _ 

CONST 

Gravitational potential 

I 

JC 

1 


Central Planet 






I 

POS 

3 

GRAVTY . 

Position vector 

I 

UJT 

. , .1 

STATE (32) 

Current jvdian date 

I/p 

XDUM 

3 

pert 

A.cceleration Vector 


Usage: JCmust = 3 

Position Vector must be in GRAVTY (Mean Equator of 
1950)o 

Acceleration Vector must be in PERT (Mean Equator of 
1950)* 


Calling Sequence: 
Purpose: 

Common Block Reqxiired: 
Subroutines Required: 
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Description; 

Tills subroutine first transforms the position vector of the S/C to mean equator of 

date. It then calculates the acceleration acting on the S/C due to the aspherical 

Earth with harmonics A^, A„ and A^, The equations are as follows; 

2 3 4 


X = ^ A 2 GM(3) (l-5Uz^) + fpp A 3 GM(3) (7Uz -3) 


c-v 2 4 

+ A^ GM(3) (3-42U2 + ) 


= Jl- 

y XX 

z " "Ifs ^2 GM(3)(3-5 u/) + -|^ Ag GM(3) (1-lOu/ + ^ 

+ ^ GM(3) (15-70u/ + 6302^ 


where U = — 
z r 

These accelerations are then transformed back into Earth mean equinox and equator of 
1950, and then added to the total acceleration vector XDXJM. 
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SUBROUTINE OBLTY 


Calling Sequence: CALL OBLTY (EP, B) 

Purpose: OBLTY calculates the transformation matrix 

that rotates from the Earth's ecliptic to the 
Earth's equator. 


Common Blocks Required: CONST, INPUT 

Subroutines Required: None 


Input/Output 


I/O 

SYklBOLIC 

NAME 

PROGRAM 

DIMENSION 

COMMON 

BLOCK 

DEFINITION 

o 

B 

3,3 

Calling Operand 

T ran s formation 
Matrix 

I 

EP 

1 

Calling Operand 

Julian centuries 
since 1900 

I 

RAD 

1 


Degrees per radian 


Theory: 

The transformation from the Earth's ecliptic to the Earth's equator involves a simple 
rotation about the vernal equinox through the angle $ , 

where 

e = 1,03 X 10*'^ t ^ -1.23 X 10“*^ t^ -3.562 x lo“^t + 23.452294 degrees 

The time variable ,t, represents the number of Julian centuries since 1900 (days since 
1900.0 times 10 ^). 
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The matrix is given by: 



Description: 

OBLTY calculates the transformation matrix for the rotation from the Earth's 

ecliptic to the Earth's equator. This matrix is loaded into B, The input EP 

“4 

represents the number of days since 1900.0 times 10 . 
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SUBROUTINE OBSET 


CALL OBSET (MODEL) 

OBSET initializes the spherical harmonics co- 
efficients for a given field model. 

Common Blocks Required: FIELDM 

Subroutines Required: None 

Input/Output 


I/O 

SYMBOLIC 

NAME 

PROGRAM 

DIMENSION 

COMMON 

BLOCK 

DEFINITION 

0 

MMOD 

1 

FIELDM(309) 

Highest tesseral order 

I 

MODEL 

1 

Calling Operand 

Model number 

o 

NMOD 

1 


Highest zonal order 

o 

TSRL 

16,17 

■■■■ 

BmPBBIIHHI 

0 

ZONL 

16 


Zonal vector 


Theory: 

The relationships between zonals and tesserals and the sine and cosine coefficients 
of a spherical harmonic potential field are as follows: 

ZONL(i) = ~C.^ i = 1, 2, 

TSRL(i, j) = C.. o j i,i = l, 2, 

TSRL(3, i + 1) = S.. o j i = 1, 2, 


Calling Sequence: 
Purpose: 
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Description: 

OBSET initializes the spherical harmonic coefficients according to the field model 
selected. The values NMOD and MMOD are also set to indicate the size of the 
selected model, NMOD indicates the highest-ordered zonal and MMOD indicates 
the highest tesseral order. The following chart indicates the possible values of 
MODEL and the corresponding fields: 






MODEL 

FIELD DESCRIPTION 

NMOD 

MMOD 

1 

Houston LI model of 
lunar field 

3 

3 

3 

JPL 15-8 model of the 
lunar field 

15 

8 

4 

Mars field — ^post 
Mariner 1971 

4 

3 

5 

Clears coefficient arrays 
for loading of input field 

0 

0 


See Figure 1 for the values of the C and S terms for the first three models 
above* 



FIGURE 1 


HOUSTON Ll MODEL OF LUNAR FIELD, MIvlOD =3, MI'OD - 3 

C( 2, J)= -0.2071D~03 0.0 0,2072D~04 

C( 3, J)= 0.2100D-04 0.3400D-04 0.0 0.25030-05 

S( 2, J)= 0.0 0.0 0,0 

S( 3, J)= 0.0 0.0 0.0 0.0 


JPL 15-8 MODEL OF LUNAR FIELD, NMQD = 15, riMOD = 8 


C( 2, 

J) = 

-0.I996D-0 3 

0.8171D-05 

0.2359D-04 



C( 2, 

J) = 

“0.5873D-05 

0 .3001D-04 

0.469RD-05 

0.45470-05 


C( 4, 

J)- 

0.1195D-04 

-0.2226D-05 

-0.2418D-05 

0 .73060-05 

-0.4547D-06 

C( 5, 

J) = 

-0 .4544D-05 

-0.2455D-05 

0, 888OD-05 

-0 .77740-06 

0 .1077D-06 



“0 . 30 4 4D-0 8 





C( 6, 

J) = 

0 .10 BSD-0 5 

-0 .6373D-05 

-0 .59170-06 

-0.20410-06 

0.4520D-07 



-0 .7564r-0? 

-0.7277D-08 




C( 7, 

J) = 

0 .1779D-04 

0 .1324D-05 

-0.1293D-06 

-0 .1S05D-06, 

-0 . 3573D-0B 



0.6061D-08 

-0 .2S37D-Q9 

0 ,24540-10 



C( 8, 

vT) = 

“0 ,59f>7D— 05 

-0 .B0 40D-0 5 

0 .26500-05 

-0 .67710-07 

0.1925D-07 



0 . 48440-09 

0 .12520-08 

-0.45230-10 

-0 .3178D-13. 


C( 9, 

J)- 

-0 ..3206D-05 

0.0 

0.0 

o.o 

o 

• 

o 



0 .0 

0.0 

0,0 

0.0 


C(.1.0, 

J) = 

0. 1367D-05 

0.0 

0.0 

0,0 

o 

• 

o 



0.0 

0.0 

0.0 

0.0 


C(ll, 

J) = 

-0.7311D-05 

0.0 

0.0 

0.0 

o 

• 

o 



0.0 

0.0 

0.0 

0.0 


C(12, 

J) = 

0. 1251D-04 

0.0 

0,0 

0.0 

0.0 



0.0 

0.0 ‘ 

0.0 

0.0 


C(13, 

J) = 

-0 .3315D-04 

0.0 

0.0 

0.0 

0.0 



0.0 

0.0 

0.0 

0.0 


C(14, 

J) = 

0 .1044D-04 

0.0 

0.0 

0.0 

o 

* 

o 



0.0 

0.0 

0.0 

0.0 


C(15, 

J) = 

-0 .2977D-04 

0.0 

0.0 

0.0 

0.0 



0,0 

0.0 

0,0 

0.0 


S( 2, 

J) = 

0.0 

-0.7213D-05 

0.4538D-05 



S( 3, 

J) = 

0.0 

0,142lD-05 

0.5748n-06 

-0 .7919D-05 


S( 4, 

J) = 

0.0 

0. 3299D-05 

-0 .2389D-05 

-0 .6 722n-06 

0.42480-06 

S( 5, 

J) = 

0.0 

-0 ,6925D-05 

-0.3178D-05 

0.1159D-05 

0.6296D-07 



-0.3012D-07 





S( 6, 

J) = 

0.0 

0,5342n-05 

-0. 1157D-05 

-0.3484D-06 

-0 .98700-07 



-0 .1654D-0 7 

0 .2373D-08 




S( 7, 

J) = 

0.0 

-0.1579D-05 

0.1152D-06 

0.2440D-06 

0.1295D-07 



0.5582D-0S 

0.1227D-08 

-0.0131D-10 



S( 8, 

J) = 

0.0 

n .G208D-05 

-0.1767D-05 

-0 .14370-06 

-0 .1757D-07 



0.2391D-08 

-0 .2390D-09 

-0.5813D-10 

0.7798D-11 
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FIGTJ.RE 1 cent 


FIELD-POST MARINE Pv 19 71, NMOD = 4, M^tOD = .1 


C( 

2 , 

J) = 

“ 0 . 1960 D -02 

0.0 

- 0 . 5400 D -04 


C{ 

3 , 

J) - 

- 0 . 30 50 D -0 4 

0 . 2770 D -05 

0.0 

0.0 

C( 

4 , 

J) = 

- C . 3140 D -04 

0.0 

0.0 

0.0 

S( 

2 

J ) = 

0.0 

0.0 

0 . 2900 D -04 


S( 

3 ^ 

J) = 

0.0 

0 . 2500 D -04 

0.0 

o 

. 

o 


320 



SUBROUTINE OBSET 
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SUBROUTINE ORBIT 


Calling Sequence: 
Purpose: 


Common Blocks: Required: 


CALL ORBIT (K, J,X,XD,GM, ELM) 

ORBIT calculates orbital elements from position 
and velocity, or position and velocity from orbital 
elements. 

CONST 


Subroutines Required: None 


Input / Output 


SYMBOLIC COMMON 

I/O NAME DIMENSION BLOCK DEFINITION 

I/O 

ELM 

6 or 12 

Calling 

Operand 

Orbital elements (see description) 

H 

GM 

1 

Calling 

Operand 

Gravitational constant of planet 

■ 

J 

1 

Calling 

Operand 

Direction flag (see description) 

I 

K 

1 

C ailing 
Operand 

Condition flag (see description) 

I 

PI2 

1 

ississi 

2*w 

I/O 

X 

3 

Calling 

Operand 

Position vector 

I/O 

XD 

3 

Calling 

Operand 

Velocity vector 


Theory: 

Consider first the calculation of the orbital elements P, e, f, co, i, O from the position 
and velocity vectors X and V . The angular momentum vector is given by 

H = X X V = ^h sin (i) sin , -h sin (i) cos (D), h cos (i)^ 
so that I Hj =[XxV| =h 

and P = h^ /GM 
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The equation of motion of a body rotating about a central body is given by 


R = P / (1+e cos f) where R is the distance to the body. 
Thus R =1 x| and e cos(f) = (P~R) /R » 
which implies - e sin (f) f = - (P/R^) R 


or e sin(f) 




since h = R 


2 


f. 


From e cos (f) and e sin (f), both e and f can be calculated, as lor^ as e is not 
equal to zero, which is explained later on. 

The calculation of i and Q is straightforward given the components of 3 , as 
long as the inclination is not 0 or 180 , in which case Clis set to zero. 

In order to find as let u = f + Then the geometry of the orbit can be used to 
yield the following equations: 


R cos (u) = 
R sin (u) 


X. cos (H) + X 
|-X^ sin (H) + X^ 


sin (H ) 
cos (Q) 


cos (i) + X sin (i) 

o 


Now the calculation of u is straightforward, and 


u-f , unless e equals zero, 


in which case co is set to zero and f = u. 

The second part of the subroutine is the reverse case, i.e., given orbit elements 
find X and V. The first step in this process is to calculate the sines and cosines of 
OJ, i, and H (if K = 5 this is input, also if K - 6 e, OJ, and f must be calculated as well 
as the above sines and cosines). After this, a transformation is set up which represents 
rotations through w, i.and Q to transform orbit coordinates to whatever coordinate 
system you may be in. The rotations and the resulting matrix are as shov/n on the 
following page. 
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-sin n 
cos n 


0 




0 


cos i 
sin i 



( cos 0 ) -sin oJ 
sin CO cos CO 
0 0 



( cos (co) cos (O) - cos (i) sin (Q) sin (co) 
cos(ci)) sin(J2) + cos(i) cos(n) sin (co) 
sin(i) sin(co) 


-sm(cg) 

-sin(oo) 


cos(n) - cos (i) sin(n) cos(co) 
sin(n) + cos(i) cos(n) cos(co) 
sin (i) cos(co) 


/ 

V 


Here x’ and refer to a coordinate system in the orbit plane with the x-axis pointing 
toward pericenter. Thus finding position and velocity vectors is reduced to finding 
the vectors in the orbit plane and then transforming them. 


For position, R can be found by 


R 


P 

1 + e cos (f) 


and then 

x' = R cos (f) 
y^ - R sin (f) 

For the velocity, the magnitude can be found by the energy relationship 

E --fL= -vi iL 

^ 2a 2 R 

or V = ^ fi 

thus ~ V sin (f^) and = V cos (f- y ) 

where y is the flight path angle 
y = arc tan le sin (f) / 

t t 

Once V and V are calculated, the velocity vector may be found by transforming 

X j£t 

the primed system as was done before. 


and is given by 
+ e cos (f)^ 
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Description: 

ORBIT provides the interchange between position and velocity coordinates and 
orbital elements. If the direction flag, J, is greater than or equal to zero, 
orbital elements will be calculated from position and velocity . Note that both 
position and velocity vectors are required for this transformation. Three 
different sets of orbital elements may be calculated, depending on the condition 
flag, K. If K is equal to three, only the standard orbital elements will be output, 
i.e., the semi-latus rectum (P), eccentricity (e), true anomaly(f), angle of 
pericenter (oj), inclination (i), and angle of ascending node (O) will be output in 

ELM(l) ELM(6). If K equals five, the following values will be output in 

ELM(7) ELM(12) in addition to the previous values: cos (o)), sin (OJ), cos (i), 

sin (i) , cos (Q), and sin (D). If K equals six, the following values will be output 

in ELM(l) ELM(6): P, e cos (OJ), e sin (6t>)iC0 + f, i> O. No other values will 

be output. 

If J is negative on input, then position and/or velocity will be output as follows: 

J equal to minus one implies that only the position vector is desired. Other 
negative values indicate that both the position vector and the velocity vector are 
desired. 

The value of K in this case indicates the type of orbital elements that were input, 

K equal to one implies that only the standard orbital elements were input. K equal 
to five implies that the sines and cosines of co , i, and O v/ere input in addition to the 
standard elements. K equal to six implies that e cos (o)), e sin (qj), and q)+ f were 
input in place of e, f, and w . 
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SUBROUTINE ORBIT 



\\o 


Calculate orbital 
elements 


yes 




Find 

from 

e 

e.f.w i 
e cos A 
tc. 1 


1 

Calculate 1 
sines and ■ 
cosines of 


Calculate transfer H 
mation coefficient 


Calculate position 
vector 


no 


RETUR#^-^<r K<4 



etc. 


f 

Calculate 

velocity 

vector 

> 

f 

no 




no 


Calculate cosines 
and sines of 
oj, i, n 


^ returiT^ 


RETURN 
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SUBROUTINE ORIENT 


Calling Sequence; CALL ORIENT (A, U, S, CD, SC, K) 

Purpose: To find the angle through which one vector must be rotated 

about a second vector in order that the first vector should 
form a given angle with a third vector. 

Common Blocks Required: None 

Subroutines Required: CROSS 


Input / Output 


SYMBOLIC COMMON 

I/O NAME DIMENSION BLOCK DEFINITION 

I 

> 

3 

ARGUMENT 

LIST 

Rotated vector. 

I 

U 

3 

ARGUMENT 

LIST 

Rotation vector. 

I 

s 

3 

ARGUMENT 

LIST 

Fixed reference vector. 

m 

CD 

1 

ARGUMENT 

LIST 

Cosine of desired angle. 

0 

SC 

4 

ARGUMENT 

LIST 

Sines and cosines of the solutions 

o 

K 

1 

ARGUMENT 

LIST 

Indicator for solution type 


Description: 

A principal use of this subroutine is to locate the times of day (right ascension of the 
Earth-fixed orbital plane's ascending node) when the touch-down point for Earth returns 
lies in the return orbit plane. This is accomplished by asking the subroutine for sines 
and cosines of the incremental right ascension required for the dot product of the normal 
to the return orbit plane and the touch-down radius vector to be zero. This subroutine 
can also solve the slightly more general problem of achieving a desired non-right-angle 
between two vectors by rotating one of them about a given axis. 
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Let T (A) be the 3x3 orthogonal matrix which, when applied to any non-zero vector 

u 

not parallel to u, rotates that vector about u through an angle, 0, measured in the 
plane normal to u. Thus, a = (0) a is a vector which sweeps out a cone about u 

as 0 increases from 0 degrees to 360 degrees. The problem solved by this subroutine 
is then: Find ^ (or sin and cos 0) such that 


Now 


a • s = I aj I ^ cos ^ 


-- -T ™T 

a-s = as”a T (-9) s 

u 


= a, fcos 01 + (1-cos 0) — — — - sin0 ■) 

^ UVi I ® 


r,. T T 

* T ^ a u u s 

= cos 0 a s + (1-cos 0) — 


T 

u u 


T 

a uxs 


u 


sin 0, 


The equation to be solved then becomes 

I aj I s I cos <p = a cos 0 + ^ sin 0 + y , 


where 


T T 

- (a u (u s) 
■y - ry 
u u 


and 


or 


T 

_ ( sxu) a 


u 


(y - a s - y 


a cos 0 + o sin0 +v = 0, 


where 


0 - 


|a| |sl 
0 

|a| |s| 


— cos (0f 


Ot - 


a 


|a| |s| 
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The solutions of this equation for sin 0 amd cos 0 are given by 


sin B 


cos Q 


1 

8 a 


-y 


— 


ri2 i2 y 

a + S 

(X -8 


± \ Of + /? -y 




- 


It can be seen that two solutions exist - one for each sign on 



When a = y » however, only one solution exists. This case will occur 

when, for the use mentioned, the latitude of touch-down is exactly equal to the 
inclination of the return orbit. If the latitude is greater than the inclination 


(X jS < y 2 ind a real solution is impossible. The subroutine then sets the 
indicator, K, to a positive value and provides the solutions for ©when the angle 
between a and s is a maximum or minimum. 
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SUBROUTINE OUTPUT 


Calling Sequence: CALL OUTPUT (T,X) 

Purpose: This routine outputs the spacecraft's state with 

respect to the launch and/or target planets in 
the desired coordinate system. 


Common blocks required: CNTRL, CONST, INPUT, INTVAR, PLNET, 

STATE 


Subroutines required: 


Input / Output 


M50LEQ, M50MDT, M50MDT, OBLTY, ORBIT, 
ROTATE, SHORB2, TRMN. 


1/0 

SYIMBOLIC 

NAME 

PROGRAM 

'DIMENSION 

COMMON 

BLOCK 

DESCRIPTION 

I 

DJO 

1 

INPUT (46) 

Modified Julian date of state epoch 

■ 

GM 

12 

CONST (5) 

Gravitational constants 

B 

JC 

1 

CNTRL (7) 

Central planet number 

n 

JL 

1 

mH 

Launch planet number 

I 

JT 

1 


Target planet number 

B 

KOUTPT 

2 


Launch and target planet output 
coordinate systems 

B 

KOUT9 

1 


Auxiliary output flag 

B 

KP 

12 

HHH 

Planets in system 

B 

KTERM 

1 


Tjpe of auxiliary output 

fl 

METH 

1 

BBIhHI 

Trajectory propagation method 

g| 

PC ON 

1 

INPUT (05) 

Position units conversion factor 

Hj 

RAD 

1 

CONST (1) 

Radians to degrees conversion facto] 

I 

T 

1 


Time since DJO 

B 

VCON 

1 

INPUT (6) 

Velocity units conversion factor 

I 

X 

6 

Calling 

argument 

Position and velocity vectors of 
state to be output 


330 



















































Description: 


This subroutine outputs the state position and velocity vectors and orbital elements 
with respect to the launch and target planets in a desired coordinate system. The 
state and time ai’e input via the argument list. The state is translated to the launch 
and target planets and rotated to the desired coordinate system before output. 

The output coordinate system is determined by the KOUTPT flag as follows; 


KOUTPT 

= 1 

Mean equinox and ecliptic of date 


= 2 

True equator and prime meridian 


= 3 

Mean equator and equinox of 1950 


= 4 

True equator and equinox of date 


= 5 

no output 


The subroutine also has provisions for an amdliary abbreviated output written on the 
unit number designated by KOUT9. If this flag is non-zero, output is presented 
on unit KOUT9 in a form specified by KTERM as follows; 

KTERM = 1 orbital elements 

= 2 position and velocity vectors 

= 3 1 and 2 

The coordinate system of the output is also specified by KOUTPT. This subroutine 
also has a provision to determine the time in the shadow cone during one orbit assuming 
constant elements. The output is presented in the auxiliary abbreviated output. Thus, 
the KOUT9 flag must be non-zero. Also, the KSHORB flag must be 1 before subroutine 
SHORB2 is called to perform the shadow calculations. 
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SUBROUTINE OUTl 


Calling Sequence: CALL OUTl 

Purpose: OUTl determines the print interval and 

controls the interpolation logic for printing. 

Common Blocks Required: INPUT, INTVAR, SAVE, STATE 

Subroutines Required: INTERP, OUTPUT 


Input / Output 



I/O 

SYMBOLIC 

NAME 

DIMENSION 

COMMON 

BLOCK 

DEFINITION 

1— 1 

DJO 

1 


Modified Julian date of 
launch epoch 

I 

DTOUT 

10 


Printing intervals 

I 

T 

1 

HBHi 

Seconds since state epoch 

I 


10 


Switching times of 
printing intervals 

I 

TOUTL 

1 

HBHI 

Time of last print 

I 

X 

6 


Current state 

I 

UJT 

1 

Bif 

Current modified Julian date 


Description; 

This subroutine finds the print times and uses subroutine INTERP and OUTPUT to output 
the state at the print times. OUTl is called from TIMEC at the beginning of each 
numerical integration step. The only print times determined on each call to OUTl are 
print times which lie in the last numerical integration step. 

The print interval is determined from the print table consisting of TOUT and DTOUT. 

The print time, TDUM, is determined from TDUM ~ TOUTL + DTOUT (IDUM) (1) 

where TOUTL is the last print time and DTOUT (IDUM) is the current print interval 
determined from the print table. 
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If this time is greater than the current time, no printing is done. If not, the state 
is determined at the print time using the interpolation logic from subroutine INTERP 
and the state is then output in subroutine OUTPUT. If the print time is within 10 
seconds of the current time, the state is not interpolated for and OUTPUT is called 
directly. 

The next print time is then determined from equation (1) and the whole process is 
repeated until the print time is greater than the current time. The subroutine terminates 
when this criterion is satisfied. 


334 



SUBROUTINE PLANET 


Calling Sequence: 


CALL PLANET 


Purpose: Subroutine PLANET supervises the 

calculation of the planet^ s position and 
velocity vectors. 

Common Blocks Required: CETBL2, CETBL3, CNTRL, INPUT, 

INTVAR, STATE 


Subroutines Required: LUNA, SOL, READE 


Input / Output 


I/O 

SYMBOLIC 

NAME 

DIMENSION 

COMMON 

BLOCK 

DEFINITION 

I 

EJO 

1 


Ephemeris date of launch epoch 

I 

EJT 

1 

STATE (2 8) 

Current ephemeris date 

■ 

JC 

1 


Central planet number 

I 

JMN 

1 


Ephemeris t>TDe flag 

I 

KP 

12 


Planets in system 

I 

KREAD 

1 

IBSHm 

Flag to determine if tape (or disl^ 
read necessary 

■ 

TABS 



Time of last tape (or disk) 
read 
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Description; 

This subroutine controls the calculation of the planet’s position and velocity vectors. 
The JMN flag determines the type of ephemeris used as follows: 


JMN = 


1. Mean elements 

2. Mean elements for Sun and mean elements plus first- 
order corrections for Moon 

3. Ephemeris tape read 

4. Mean elements for Sun, osculating elements 
for Moon 

5. Ephemeris disk using Goddard^s direct read feature 


If JMN is not equal to 3 or 5, subroutines SOL and LUNA are called to determine 
the planets^ positions if the respective planets are in the system. If JMN is equal 
to 3 or 5, subroutine READE is used to obtain the position and velocity of the planets. 
Before this routine is called, the IREQ array is set to the KP array and CENT set 
to the central planet number. These are arrays used in READE . The KRE AD flag 
is also set. Each read of the ephemeris disk on tape brings eight days of data 
into arrays in READE. The KRE AD flag is set to zero (no read) if the time of the 
ephemeris call is within the eight day range of data already started in READE, 
otherwise, the KREAD flag is set to one for a tape or disk read. 
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SUBROUTINE POST 


Calling Sequence: 


CALL POST 


Purpose: 


POST computes certain parameters for output 
during midcourse guidance analysis. 


Common Blocks Required: 


CONST, INPUT, INTVAR, MCCOM, PLNET, 
STATE 


Subroutines Required: 


BELL, BURNT), DOT, MVTRN, ORBIT. PLANET, 
RETRO, SUNMIN, TRMN, VISIB, VNORM 


Input / Output 


I/O 

SYMBOLIC 

NAME 

DIMENSION 

COMMON 

BLOCK 

DEFINITION 

I 

WO 

1 


Initial spacecraft weight (kg) 

I 

DJO 

1 


Julian date of anchor vector 
epoch (days) 

■ 

ASPMC 

1 


Specific impulse of the midcourse 
motor (sec) 

■ 

WRETRO 

1 


Weight of retro fuel (kg) 

1 

A FUEL 

1 


Attitude fuel/angle factor (kg/rad) 

I 

WDROP 

1 


Retro drop -weight (kg) 

I 

JT 

1 

BBBIHR 

. 

Target body number 

m 

MCOUT 

1 



H 

KOUT9 

1 


Logical unit for scope output. 


MCUNIT 

1 


Logical imit for writing out 
information. 

I 

IPROB 

1 


Out]3ut probability scale (pet) 

I 

NORMIN 

/' 

1 

BUBBIBj 

Retro optimization key 

m 

XMC 

6 


Pre -ignition midcourse state 
(km, km/sec) 

m 

DV 

3 


Midcourse velocity impulse (km/ sec 

m 

DVMG 


BBBIBI 

Midcourse impulse magnitude (knv^ 
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SYMBOLIC 

I/O NAME DIMENSION 


DEFINITION 




COMMON 

BLOCK 


Ri ght ascension of DV (deg) 
Midcourse ignition time 
(sec past anchor epoch) 
Spacecraft -to-Sun unit vector 
MCCOM(21) Mean of 1950 


Retro delta-v (Ian/ sec) 


Expected second-midcourse 
fuel (kg 


Spin-axis unit vector at retro 


Trim velocity (km/sec 



Pericynthion state 

(km, lan/sec, Lunar Equator) 


Anchor epoch-launch epoch 
difference (days) 


Expected end constraint errors 
from BELL 


Firing true anomaly for retro 
(rad) 


Spacecraft weight after midcourse 
(kg) 


Expected second midcourse 
velocity (m/sec) 


Midcourse iteration counter from 
MDCORS 


Midcourse execution counter 
from PROTO 


Flight time counter from PROTO 


Midcourse central body number 


Elevation indicator array for 
midcourse. 


Elevation indicator array for retro 


State at target closest approach 
km, km/sec) 


Time at target closest approach 
sec past anchor epoch) 
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Description; 

POST is a subroutine in wtiich auxiliary output calculations are performed for midcourse 
guidance subroutines PROTO and FEXATG. These calculations (in order of appearance) 
are: 

1. Midcourse fuel (kg) * 

2. Spin-axis-Sun angle at midcourse (deg) 

3. Retro velocity impulse (km/sec) 

4. Attitude fuel to midcourse attitude (kg) 

5. Minimum spin-axis-Sun angle to midcourse (deg) 

EL 

6. Array of midcourse visibility for trackers (KEL = / 10 +1) 

7. Burn time (sec) 

8. Trim fuel (kg) * 

9. Time of retro ignition (hours past launch) * 

10. Right ascension of the spin axis at retro (deg) * 

11. Declination of the spin axis at retro (deg) * 

12. Total correction fuel (kg)* 

13. Spin~axis-Sun angle at retro (deg)* 

14. Trim velocity (m/sec)* 

15. Minimum spin-axis -Sun angle to retro attitude (deg)* 

EL 

16. Array of retro visibility for trackers KELR = /lO + 1 ELs 0 

= 0 EL<0 

( * computation depends on NORMIN — if ^0, retro attitude, trim fuel and firing time 
are as determined in TARGET, otherwise retro attitude and firing time are optimized 
in RETRO to minimize trim fuel) 

The computed quantities are written on logical unit MCUNITfor later retrieval by 
PROTO or MCVERF, The logic of this subroutine is straightforward and merits 
no flowchart. 
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SUBROUTINE PRINT 


Calling Sequence: 


CALL PRINT 


Purpose: 


The purpose of this routine is to print the 
contents of various common blocks. 


Common Blocks Required: CNTRL, CONST, INPUT, PERT, PLNET, 

STATE, SAVE 


Subroutines Required: ORBIT 


Input / Output 



I/O 

SY]\1B0LIC 

NAME 

DIMENSION 

COMMON 

BLOCK 

DEFINITION 

O 

ELM 

6 

STATE (14) 

Spacecraft’s osculating 
orbital elements 

I 

GM 

12 

CONST(5) 

Gravitational constants 

I 

JC 

b9H 


Central planet number 

1— 1 

METH 

1 

WKSSi 

Trajectory propagation 
indicator. 

I 

X 

6 

STATE(l) 

Spacecraft’s position and 
velocity vectors 
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Description: 


This subroutine prints the contents of various coinmon blocks on output unit 6. 

A series of flags are used to determine which common blocks are to be printed. 
If the input location in the table below is set to one, the designated common block 
will be printed. 


INPUT 

LOCATION 

COMMON 

BLOCK 

1020 

STATE 

1021 

CNTRL 

1022 

PLNET 

1023 

INPUT 

1024 

NOT USED 

1025 

PERT 

1026 

SAVE 


The orbital elements of the spacecraft are determined from subroutine ORBIT if 
STATE common is to be output and the trajectory propagation method used is 
Cowell*s. 
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SUBROUTINE PROTO 


Calling Sequence: 


CALL PROTO 


Purpose: PROTO controls the gross midcourse 

analysis logic and printout 

Common Blocks Required: ANKOR, CNTRL, CONST, INPUT, MCCOM, 

STATE 


Subroutines Required: FIXATG, MDCORS, POST 


Input / Output 



I/O 

SYMBOLIC 

NAME 

DIMENSION 

COMMON 

BLOCK 

DEFINITION 

Hi 

DJL 

1 


Julian date of launch (days) 

WM 

DJO 

1 


Julian date of anchor epoch (days) 

n 

RAI 

1 

INPUT(47) 

Right ascension initially (deg) 


DECI 

1 

IIIISS9I9 

Declination initially (deg) 

m 

HRO 

1 

INPUT(53) 

Hours 



XMINO 

1 

INPUT{54) 

Minutes ^ 

GMT of anchor epoch 

I 

SECO 

1 






DTFIN 

1 


7 

Desired time of flight (seconds) 

I 

DELTMC 

1 


Midcourse execution 
time step (sec) 

I 

SIGAT 

i 


Expected midcourse pointing 
error (rad) 

I 

SIGDV 

1 

INPUT(436) 

Midcourse velocity proportional 
error (frac) 


TMC2IN 

1 

ISESSRI 

Time of possible second 
midcourse (sec) 

m 

TMC 

1 


Initial midcourse execution 
time (sec) 

m 

JL 

HHH 

RSiRH 

Body center of anchor vector 
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SYMBOLIC 
I/O NAME 


DIMENSION 


DEFINITION 






COMMON 
BLOCK 


INPUT(1050) Extra midcourse output ke; 


Nunioer of midcourse 
executions desired 


Logical unit for 
midcourse output 


Output- scaling probability 


Midcourse burn model key 


Scan selector 
INPUT(1077) (-fixed attitude, + flight time) 


Pre -ignition midcourse state 
(km, km/sec) 


MCCOM(12) Midcourse velocity impulse(km/se< 


Midcourse impulse 

magnitude (m/sec) 


MCCOM(16) Declination of DV (deg 


Right ascension of DV (de 


Midcourse execution time 
( sec past a. e o ) 


Expended midcourse velocity 
km/ sec 







MCCOM(31) Trim, fuel (kg) 


Anchor -launch epoch 
difference (sec 


Expected end constraint errors 


Expected second-midcourse 
velocity (m/sec 


Desired constraint vector 


MCCOM(IOO) Constraint error vector 




Midcourse burn-type key 


MDCORS re-entry key to 
MCCOM(156) avoid initialization 


MCCOM(157) MDCORS trial counter • 

































































SYMBOLIC COMMON 

I/O name DIMENSION BLOCK DEFINITION 


4 ./ 

o 

KMC 

1 

MCCOM(159) 

Midcourse execution time counter 

o 

KT 

1 

iiiiiiii 

Flight time counter 

o 

KGLAWI 

1 

MCCOM(164) 

Guidance law indicator 

o 

KEL 

10 

MCCOM(172) 

Tracldng visibility indicators 
for midcourse 

o 

KELR 

10 

MCCOM{182) 

Tracking visibility indicators 
for retro 


Description: 

PROTO operates in one of 3 modes, depending upon the setting of KTF. 

KTF “ 0 (one-dimensional scan of midcourse execution times) 

In this mode, sample midcourse correction maneuvers are calculated at JMC execution 
times wnich begin at TMC and proceed at steps of DELTMC. Eacn maneuver, found 
by MDCORS and elaborated by POST, corresponds to a particular guidance law and the 
same set of desired end conditions. Cnaracteristics of the maneuvers and arrival 
conditions are written on MCUNIT in POST, then read again for printout in PROTO at the 
conclusion of the scanning process. 

KTF >0 (Two-dimensional scan of midcourse times and flight times) 

Tnis mode injects a scan of flight times (using the FTA guidance law) into the execution - 
time scan. It enables generation of all those midcourse solutions which arrive at a 
specific closest approach distance and inclination, thereby encompassing all the available 
guidance law options. At each midcourse execution time, flight times are scanned in 
KTF one-hour steps beginning at DTFIN. Ac each point of the scan, MDCORS and POST 
compute the maneuver and arrival characteristics and write them on MCUNIT for later 
printout by PROTO, By scanning flight times within the execution- time loop, gradients 
for targeting may be salvaged for use at several flight times and some trajectory com- 
putation may be avoided. Gradients are re-generated every fourth hour of the flight time 
scan. 

KTF <0 (Two-dimensional scan of midcourse times and delta v) 

This is the fixed-attitude -guidance mode. At each midcourse execution time, FIXATG 
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is called. In FIXATG,it is assumed that the spin-axis direction or thrust direction 
is fixed at RAI and DECI, The impulsive velocitj'' magnitude is varied systematically 
in FIXATG from zero in -KTF steps of size DINK (location INPUT(479) in km/sec). 
Tne post-ignition trajectory is propagated to target closest approach wnere arrival 
characteristics are computed and printed out, IMDCORS is not called in this mode, 
neither is POST and no summary printout is performed in PROTO* 
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SUBROUTINE PROTO 














SUBROUTINE PUTELS 


Calling Sequence: CALL PUTELS (ICOM, MSGERR, $) 

Purpose: This subroutine writes a file describing the 

state for retrieval by the GTDS program. 

Common Blocks Required: ELMNT 

Subroutines Required: None 


Input / Output 


r-—- : — r- — — 

! SYMBOLIC 
I/O ! NAME 

DIMENSION 

COMMON 

BLOCK 

DEFINITION 

I 

ICOM 

1 

Calling 

Operand 

Initialization flag 
1 Initialize output data file 
0 add new element to set 

I 

MSGERR 

1 

Calling 

Operand 

Error message return number 

O 

$ 


— 

Statement number for 
error return 


Description: 

This subroutine is used to output the state for retrieval by the GTDS program. The 
ICOM flag is used to initialize the output file. When this flag is set to 1, the output 
file is initialized. No writes are made with this flag setting. When the ICOM flag is 
zero, writes are made on unit 27. 


The data to be written on unit 27 is transferred into the subroutine via the SET array 
of ELMNT common. The set array is defined as follows: 


Location 

1 

2 


3-5 

6-8 

9-14 

15-35 


Definition 

Date of state in year, month and day written as YYMMDD, 

Time of state in hours, minutes and seconds written as • 
HHMMSS. SSS* 

Cartesian position vector. 

Cartesian velocity vector 

Keplerian orbital elements. The order is 
(SMA, ECC, INCLIN, LAN, PA, MA) 

Upper triangle of the state covariance matrix 
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Location 


Definition 


36 Start time of fitted data (year, month, day) 

37 Start time of fitted data (hour, minute, second) 

38 End of fitted data (year, month, day) 

39 End of fitted data (hour, minute, second) 

40 Root mean square of fit. 

41 Satellite identification number 

42 Reference coordinate system of state 
1 for mean of 1950 

43 Central body indicator 

1 Earth 2 Moon 3 Sun 

44 Element set number 
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SUBROUTINE QUARTO 


0 ailing Sequence: 

OALL QUARTO (0,X,N) 

Purpose: 

To find the real roots of a quartic * equation, 


i=l 

Oommon Blocks Used: 

None 

Subroutines Required: 

None 


Input / Output 


I/O 

SYMBOLIO 

NAME 

DIMENSION 

DEFINITION 

I 

0 

5 

Coefficients of the polynomial 

O 

X 

4 

Solution vector if real solutions exist 
{Upper-loaded if less than four exist) 


N 

1 

Input: Order of the polynomial (3 or 4) 
Output: Real solutions found (0,1, 2, 3, 4) 


* QUARTO may also be used to find the real roots of a cubic equation. The mathematical 
description which follows applies only to quartic equations. 


Description: 

The Descartes technique is used to solve the equation, 

AX^ + BX^ + OX^ + DX + E = 0. First divide through by A (A / 0) to obtain 

X^^ + B'X^ + O’X^ +D'X + E' =0 (1) 

B* 

Substituting X = y + h^where h = -j— ^ into (1) obtain 

y^ + Py^ + Qy + R = 0 . (2) 
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where 

P = 6h^ +3B'h + C 

(3) 


Q - 4h^ +3B'h^ +2C'h+D* 

(4) 


R = h^ + B’h^ +C'h^ +D’h + E\ 

(5) 

Now (2) may be factored to produce equation (6) 



(y^ + Vr' y + {) (y^ - + 19) = 0 

(6) 

which. 

in turn, yields four quadratic solutions if R\ ^ and p are defined. 



1 . Q 

^ = -(p + R'- ) 

CO 


e - ^ ) 

(8) 

R’ is the maximum of the real roots of 



7? +aZ+b = 0 

(9) 

minus 

2 

— - P. The coefficients, a and b, in (9) are given by 
3 



a = Y [3 (P^ - 4R) - 4P^] 

(10) 

and 

b = [l6 P® - 18P (P^ - 4R) - 27Q^] 

(11) 

Tb find the roots of (9), first compute the quantity 



* _ a . b 

^ 27 4 . 

(12) 
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If A>0, the only real root is 


z, = + Va- + 'V - T - ^ 

If A.= 0, the real roots are 


If A < 0 the roots are 

Z, = 2 V - 4* cos (0/3) , 

i O * 

Z = 2 


z = 2 V" “i" ‘^°® 

COS 0 


After computing R’, equations (6), (7), and (8) yield y^, i - 1,4. Then - y . ■*' h 
are solutions to the quartic. Only real solutions are considered by this subroutine. 



and 


where 


(15) 


(16) 
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SUBROUTINE QUIKIE 


Calling Sequence: CALL QUIKIE (A, SI, Cl, QO, SUN0, TFl, TF2) 

Purpose: This subroutine calculates approximate shadcnv times 

for circular lunar orbits with constant inclinations. The 
times calculated are shadow-free time and time until 
next shadow (or time until no shadow, if orbit is presently 
in shadow) 

Common Blocks Required: CONST 
Subroutines Required: None 

Input / Output 


i- - 1 

I/O 

SYMBOLIC 

NAME 

DIMENSION 

COMMON 

BLOCK 

DEFINITION 

I 

A 

1 

CALLING 

OPERAND 

Semi-major axis 

I 

SI 

1 

CALLING 

OPERAND 

Sine (inclination) 

I 

Cl 

1 

CALLING 

OPERAND 

Cosine (inclination) 

I 

00 

1 

CALLING 

OPERAND 

Initial longitude of node 

I 

SUN(/ 

1 

CALLING 

OPERAND 

Initial longitude of Sun 

I 

GM 

12 

CONST 

Planet gravitational constants 

I 

PI, PI2 

1,1 

CONST 

IT , 

o 

TFl 

1 

CALLING 

OPERAND 

Time until next shadow or 
neg, time until no shadow 

o 

TF2 

1 

CALLING 

OPERAND 

Shadow- free time 





































Description: 

This subroutine calculates the times when a given orbit around the Moon will cross 
the Moon's shadow. The ox'bit is assumed to have zero eccentricity and constant 
inclination. Input quantities should be expressed in an ecliptic coordinate system; 
however, the Moonfe equator is probably acceptable for most work. 

The output quantity TF2 represents the time between shadows, (i.e., the maximum 
shadow free time. 

Note: For low inclination orbits, part of the orbit is always in 
shadow. For this case, both TFl and TF2 are output as 
999,9. 


Theory: 

In an ecliptic coordinate system, let >T/be the longitude of the Sun, Qbe the longitude 
of the orbits ascending node, and y the angle between them. 

Then y = 'If - Q, and y = 4r - ^ , where ^ is the angular velocity of the Sun about 
the Earth (.998 deg/day), andn is the precession rate of the orbit around the planet. 

A = orbit radius 
n' = mean motion of Moon 

^ = grav. ratio 


^6 ^ 1. 5 nc^ cos (i) RM^/A^ + .75 jx/n cos (i)^ 

n = mean motion of spacecraft 

c = lunar oblateness coefficient 
2 

i " inclination 

RM = Radius of the Moon 


Since the orbit is circular, the radius A is constant. Thus, the angle from the shadow 
cone centerline to the edge of the cone at a distance A from the planet is 

6 = sin ^ (RM/A) - a , where a is the half shadow cone angle, 
c 
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y = sin”^ ( T^ ) (Note: | sm6c| smi| ) 

'oini 


This implies that the orbit is a shadow whenever 


-y ^ y^y or ff - y ^y^TT ’•'y . 
c c c 


Thus the problem is reduced to finding out what quadrant y is in and what the angle 
is until the orbit status changes. For instance, if y is in the third quadrant and 


the orbit is not in shadow, then TFl = 


2 ^ - V c 


Similarly, if y is in the second quadrant and the orbit is in shadow, then 
TFl = - (?r +y^ “ y) /y . TF2 is independent on y and is equal to ~ ^ ^ 
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SUBROUTINE QUIKIE 

















SUBROUTINE RANDMl 


Calling Sequence: CALL RANDMl (lY, YFL) 

Purpose: This subroutine determines a random number 

uniformly distributed between 0 and 1. 

Common Blocks Required: None 

Subroutines Required: None 


Input / Output 


■ ■ ' ‘ ' 1 

I/O 

SYrJBOLIC 

NAJ\iE 

DIMENSION 

COMMON 

BLOCK 

DEFINITION 

I 

lY 

1 

CALLING 

ARGUIMENT 

Random number generator 

o 

YFL 

1 

CALUNG 

ARGUMENT 

Random number 


Description: 

The random number is determined from 

YFL = lY (1027) ( .465661 D-9). 

The random number generator is updated on each call as, 
lY = lY (1027) 

This random number generator is designed for the word length of an IBM 360 
series computer. 
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^BROUTINE READE 


Calling Sequence: CALL READE (JED, TSEC, TERR) 

Purpose: This routine takes the data from the ephemeris tape 

and interpolates for the planetfe position and/or 
, velocity at the desired time. It also transfers to 

the central planet. 


Common Blocks Required: CETBL2, CETBL3, CETBL9, 

PLNET 


Subroutines Required: 


GETTAP 


Input / Output 


I/O 

SYMBOLIC 

NAME 

DIMENSION 

COMMON 

BLOCK 

DEFINITION 

I 

ICENT 

'nm 


Central Planet number 


lERR 

1 

CALLING 

OPERAND 

Error flag 

I 

IREQ 

IHiilDRII^Ri 

Planet?s ephemeris 
flag . _ 


i| CALLING- 
1 ! OPERAND 

Reference Julian 
ephemeris 

o 

NUT 

4 

PLNET(85) 

Nutation output 

t 

I i NUTAT 

204 


Nutation input data from 
ephemeris tape 

o 

TABOUT 

6, 12 

PLNET(l) 

Position and velocity 
vectors of planets with 
respect to the central planet 

! ■ 

I j TABS 

829 

. 

CETBL3(1) 

Input planet position and vel- 
ocity vectors from 
ephemeris tape 

maam 

1 

CALLING 

OPERAND 

Seconds of ephemeris time 
past JED 
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Description: 


This subroutine determines the positions and velocities of the planets with respect 
to the central planet from the JPL ephemeris tape. The times of the positions 
and velocities to be obtained are brought through the argument list as JBD 
and TSEC, The output positions and velocities are put in TABOUT of PLNET 
common. 

The positions and velocities of the planets are set up in the TABS array through 
a call to GETTAP. This routine searches for the proper block of data from the 
tape (or disk) and reads into TABS the eight-day block of data that encompasses 
the desired time, READE next interpolates for the positions and velocities at 
the desired time from the eight-day block of data in TABS. After the interpolation 
is complete, READE translates the positions and velocities to the desired central 
planet. 
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FUNCTION RETDV 


Calling Sequence: DV = RETDV{DVMCM, WT0, WTF, WTAR) 

Purpose: RETDV computes the retro velocity as a function of 

midcourse velocity. 

Common Blocks Required: CJZ!>NST, INPUT 

Subroutines Called: None 

Input/Output 


— 

1/0 
L 

SYMBOLIC 

NAME 

PROGRAM 

DIMENSION 

COMMON 

BLOCK 

DEFINITION 

■ 



Argument 

List 

Midcourse velocity magnitude (km/sec) 

I 

WT0 

1 

Argument 

List 

Spacecraft weight before midcourse (kg) 

0 

WTF 

1 

Argument 

List 

Spacecraft weight after midcourse (kg) 

0 

WTAR 

1 

Argument 

List 

Spacecraft weight after retro (kg) 



1 

Function 

Retro velocity (km/sec) 

I 

G 

IBHI 

HESHi 

2 

Earth's surface gravity (km/sec ) 

I 

ASPMC 

im 


Specific impulse of midcourse motor (sec) 

I 

ASPR 

1 


1 Specific impulse of retro motor (sec) 

I 

WRETR0 

1 


Weight of retro fuel (kg) 
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Method: 


The rocket equation is applied to simulate both the midcourse and retro motor 
burns. Attitude fuel expenditure is ignored. 

WTF = 

WTAR = WTF - WRETR0 
RETDV = - (G • ASPR) in 
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SUBROUTINE RETRO 


Calling Sequence: CALL RETRO (ELM, DVR, DVT, FFIRE, RAO, 

DECO, X) 

Purpose; RETRO finds the retro attitude which results in 

the minimum trim velocity. 


Common Blocks Required: INPUT 


Subroutines Required: MINV 


Input/Output 


I/O 1 

SYMBOLIC 

NAME 

1 COMMON 

Dimension I block 

DEFINITION 

mi 

ELM 

12 

ARGUMENT 

LIST 

Orbital elements of the approach 
hyperbola 

■ 

DVR 

1 

ARGUMENT 

LIST 

Retro velocity impulse (km/sec) 

0 

DVT 

1 

ARGUMENT 

LIST 

Trim velocity required (lon/sec) 

o 

FFIRE 

1 

ARGUMENT 

LIST 

Firing true anomaly on the approac i 
hyperbola (rad) 

m 

RAO 

1 

ARGUMENT 

LIST 

Initial estimate of retro right 
ascension (rad) 

I 

DECO 

1 

ARGUMENT 

LIST 

Initial estimate of retro 
declination (rad) 

o 

X 

2 

ARGUMENT 

LIST 

Right ascension(rad) & declination 
of the solution retro orientation. 

I 

KROUT 

1 

. INPUT(1072) 

Extra output key 
(print if KROUT = 1) 


Method: 

A steepest descent hunting procedure is used to find the retro orientation resulting in 
the minimum trim velocity. The control vector, X, is defined by 

^ _ right ascension of the spin-axis 
declination of the spin-axis 

(The velocity impulse imparted by the retro burn is anti-parallel to spin-axis). The trim 
velocity, v^, is defined (through formulae in MINV and TRIM) as a function of X and the 
firing true anomaly, p, on the approach hyperbola. 


- f(X,9) 
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♦ + 

RETRO obtains v* - f (X, 0 ) by calling MINV. 9 is the value of 9 which minimizes 

^ * 

V for a given X and is, generally, also an implicit function of X. v is the 

0-minimized trim velocity. The objective of the logic in RETRO is to find X , 

the control (specifying spin-axis in orientation) for which is minimized. 


min v^ = f (X , 0 ) 


* 

We will now denote v^ by the typographically-simpler v(X). Approximations to the 
partial derivatives, 


P(X) = 


ax 


are obtained by the secant method evaluated at X. The first order change, 5v, in 
v(X) due to a change, gX, in X is 


6v = P6X 

which we cannot solve directly for gX given 5v, We choose, instead, to minimize a 

2 2 t 

function , S , of §X subject to the constraint PdX = 6v. Let S = 6x g 6X, where 

2 

G is a positive - definite weighting matrix. We adjoin the constraint to S and 
differentiate with respect to 6X to solve for dX as a function of the undetermined 
multiplier, 

at "n t 

[^6 X G6X - 2 X (Pgx - 6V) J = 26X G - 2\P = 0 

6X =G"*P*X 
P6X =PG’*P*X = 6v 


X = 


-t t 
PG P 


6X = 


-t t 
PG P 
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This is the steepest descent formulation for RETRO' s weighting matrix 
is defined by 



The hunting procedure used in RETRO to find X is to ask for an improvement, 
(negative) at the k-th iteration, where X is X^. This predicts a control change 

5X which leads to 


X 


r+1 


= X + 6X 
r 


If Av = V (X^^^) - V (Xp 

is positive, 6v is halved and 6X, and v(X^^^) are re-calculated (without re- 

calculating P) until Av is negative. If the magnitude of gv is less than the specified 
tolerance, X* = min (X^ , and the iteration is complete. 

If Av < 6 V on the first trial at any X^, $v is set to 1. 56 v for the next step from 

If Av is negative on the first trial but Av >6 v, another step is computed using 6v 

but starting at X^^^. If Av^ = v(X^^ 2 > - v(X^ is less than 6v, the iteration proceeds 

from X . If 6v < Av« < 0, then 6v is set to Av^ - tolerance. This process is 
r+2 2 ^ 

considered convergent when the magnitude of 6v is less than the pre-set tolerance. 
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SUBROUTINE RETRO 
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SUBROUTINE RKSEVN 


Calling Sequence: 
Purpose; 


Common Blocks Required: 
Subroxmtines Called: 


CALL RKSEVN (N, HO, XO) 

This subroutine integrates a set of 
simultaneous differential equations 
using a seventh-order ten-cycle 
Runge-Kutta scheme. 

CNTRL, INPUT, INTVAR 

EQNS 


Input / Output 


1/0 

SYTSIBOLIC 

NAME 

PROGRAM 

DIMENSION 

COMMON 

BLOCK 

DEFINITION 

■ 

ERRC 

1 

■■Hi' 

Error control 

1/0 

H 

1 

BfSHHI 

Initial compute interval and 
next compute interval 

0 

HO 

1 

Calling 

Operand 

Actual compute interval used 

0 

KHALT 

1 


Error stop flag 

■ 

N 

1 

Calling 

Operand 

Number of differential 
equations 

1/0 

RATES 

6 

INTVAR(8) 

First derivative of 
dependent variables. 

0 

X 

1 


Independent variable 

I 

XO 

1 

Calling 

Operand 

Initial independent variable 

1/0 

Y 

6 


Dependent variables 
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Theory: 


The integration scheme shown below was developed by D. Sarafyan, Reference 1 . 
In his scheme, a set of simultaneous differential equations are numerically 
integrated using a seventh-order ten-cycle Runge-Kutta method. In the following 
equations f (x, y) refers to the value of the derivatives of the function at the 
independent variable X and dependent variable Y. This value is brought into 
the subroutine via RATES in INTVAR common. It is calculated in Subroutine 
EQNS. 


The value of the independent variables, Y, at the end of the step is obtained from: 

Y(Xo + h) = Yq + ^41 (Kg +Kg) + 216 (K 4 + Kg) +27(K5 +K7>+272 Kg^ (1) 

where 

Kg = hf (Xg, Yg) 

Ki = hf (Xg + -|- h, Yg + -|- Kg) 

K2 = hf (xg + 4 h, Yg +-|- [Kg + 3 kJ 'j 
Kg = hf (xg + h, Yg +-i [Kg - 3Ki + 4 K 2 ] ) 

K 4 = hf [xg + -L h, Yg + [s3Kg + 32K2 - 7Kg]\ 

Kg = hf ^Xg +4 Yg + ~ [-3Kg - 4K2 + Kg + 24 X 4 ]! (2) 

Ko = hf (xg + -1 h. Yg H- - [_290Kg -524K2 + 145Kg 

j 292 Ko + IO8K2 + I3K3 - 3I8K4 




+1908K^ + l305Kg 


K„ = hf 


(’'0 ♦ -r 


i) 


Y^ + 


0 1431 


+ 753Kc + 106K^ 

O D 


]) 
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Kg = hf (xo + -|- h, Yo + [l4042Ko + IIOI 2 K 2 - 4477Kg 

+ 5724K, ~ 6903K^ + 6360K + 31482K 

4 5 6 7 

K9 = “ (kq + ^ [- 2049K^ - 1836K2 + 839K3 

+ 5724K, - 4692K + 12084K - 9540K + 3816K 1 ) 

4 5 6 7 8j/ 

Description : 

The value of f in the above equations is determined by repeated calls to EQNS with 
the indicated independent variable set in X of INTVAR common and the dependent 
variables set in Y of INTVAR common. EQNS calcxilates the derivatives of the 
dependent variables and puts the answer in RATES of INTVAR common. The values 
of f are used to calculate through K^. These K’s are used to determine 
variables at the end of the computing step from the first equation. If a fixed 
computing interval is used (ERRC=0),the subroutine terminates. 

When the automatic compute interval option is used (ERRC 0) the subroutine 
calculates the fourth-order solution at the end of the step from 

Y 4 (Xoth)=Yo4-f (K0 + 4K2-.K3) 

where 

K , K , K are the same as defined above. 

U ^ o 

Next the fourth-order solution is compared to the seventh-order solution. The largest 
relative difference between the two is used to determine the compute interval from 

1/5 

H = H ( ERRC/ERRELS ) 

where ERRELS is the largest relative difference. H is the compute interval to be 
used in the next step; however, if the relative error is more than 4 ERRC , then 
the error in the current solution is considered too large. In this case, the whole 
process is repeated again with the compute interval just determined. A limit of 
10 repeats is allowed. If the limit is reached, the error halt flag is set and the 



( 3 ) 


( 4 ) 
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subroutine terminates. The independent variable is not incremented inside this 
routine. It should be done after the call to RKSEVN as shown below, 

T = T + HO (5) 

where T is the independent variable. 


Reference 

1. Sarofyan, D. ; "Seventh-Order Ten-Stage Runge-Kutta Formulas," Technical 
Report No. 38, Louisiana State University, Department of Mathematics, 
January 1970. 
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SET ERROR 
HALT FLAG 




RESET STATE TO 
SAVED VALUES 
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SUBROUTINE ROT/VIT 


Calling Sequence; CALL ROTAIT (X, Y, S , C, U, V) 

Purpose: To rotate two orthonoi'mal vectors in their plane. The 

subroutine computes U=CX+SY, V— SX+CY. If C=cosA, 
and S=sinA, U and V are obtained by rotating X and Y 
through the angle A in the sense X into Y. 


Common Blocks used: None 

Subroutines Required; None 


Input / Output 


SYMBOLIC 

I/O NAME DIMENSION DEFINITION 

I 

X 

3 

Orthonormal input vectors 


Y 

3 

Orthonormal input vectors 

I 

s 

1 

Sine of rotation angle 

I 

c 

1 

Cosine of rotation angle 

O 

u 

3 

Rotated vectors output 

O 

V 

3 

Rotated vectors output 


ROTAIT is coded in such a way that U and V may share the same storage as X and Y. 
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SUBROUTINE ROTATE 


Calling Sequence: 


Purpose: 


Common Blocks Required: 


CALL ROTATE (M, A, B, C.) 

CALL MVTRN (A, B, C, M, N) 

T 

To form the matrix product C = AB or C=A B 
where A is a 3x3 matrix and B and C are 
3x1 matrices {3xN in MVTRN). 

None 


Subroutines Called: None 


Input/Output 


1/0 

SYMBOLIC 

NAME 

PROGRAM 

DIMENSION 

COMMON 

BLOCK 

DEFINITION 

I 

A 

9 

Call List 

Matrix multiplier 

I 

B 

3,N 

Call List 

Matrix multiplier 

0 

C 

3,N 


Product matrix 

I 

M 

1 

— 

Call List 

^ , C = AB if M = 1 

ica or. Q ~ otherwise 

I 

N 

1 

Call List 

Number of columns of B and C 
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SUBROUTINE SADOUT 


Calling Sequence: CALL SADOUT 

Purpose: SADOUT outputs the times of umbral, penumbral, 

and occultation times. 


Common Blocks Required: INPUT, SHAD, STATE 

Subroutines Required: CALEND 

Input / Output 


SYMBOLIC 
I/O NAME 

COMMON 

DIMENSION BLOCK DEFINITION 

I 

DJO 

1 


Modified Julian date of state epoch 

I 

DJI 

1 


Modified Julian date of liftoff 

I 

JL 

1 


Launch planet number 

1— ( 

JT 

1 

INPUT(10311 

Target planet number 

I 

KPLOT 

1 

INPUT(10931 


I 

T 

1 

STATE(10> 

— ■ ■ ■ — .■■ ■ . ... ■ .. . .1 . 

Current time 

I 

TSX 

10 

IHBI 

Table of umbral, penumbral, and occultation j 
entrance and exit times I 


Description: 

The shadow times to be output are stored in the TSX array. A test is made on the smallest 
time in the TSX array. If this time is greater than the current time, no output is presented. 
The TSX array is next ordered so that it is monotonically increasing. The KK array is 
included to keep track of the times in the ordered TSX array. Subroutine CALEND is used 
to determine the calendar date corresponding to the times in the TSX array. The dates 
are output on imit 6 if the time is less than T. If the KPLOT flag is set to 20, information 
is written on unit 20 for later use in a plotting program. 
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SUBROUTINE SENSO 


Calling Sequence: CALL SENS0 

Purpose: SENS0 computes the gradient of end constraints with 

respect to midcourse velocity. It can also be used to 
provide end state and constraint errors as a function 
of midcourse velocity. 


Common Blocks Required: INPUT, MCC0M 

Subroutines Called: MCBURN, F0WARD, TARGET 


Input/ Output 


1/0 

SYMBOLIC 

NAME 

PROGRAM 

DIMENSION 

COMMON 

BLOCK 

DESCRIPTION 

I 

DINK 

■BH 


Midcourse velocity impulse for partials 
(km/sec) 

0 

KRASH 

1 


Trajectory stop key for F0WARD 

■ 

DV 

3 


Midcourse correction impulse (lan/sec) 

0 

DPT 

3,10 


Gradient (bi/j/bAV) 



10 

MsiiiW 

End constraint error vector (see TARGET) 





Gradient-or-not logic key ( ^ 2 for gradient) 

0 



ISP 



■■1 

HBiSH 

Gradient “was-generated key (set 1) 
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Method: 


The secant method of computing approximate partial derivatives is used in genera- 
ting the gradient of constraint errors with respect to control variations. The con- 
trol vector, DV , is the impulsive midcourse correction velocity vector. This 
vector is fed to MCBURN, which outputs the post-burn state. This state is fed to 
F0WARD, which outputs the state at target closest approach. TARGET takes this 
end state and generates the constraint error vector, PSI. The transpose of the 
gradient is stored in DPT. 


DPT 


/ hPSI 
\ hDV/ 
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SENSO 
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SUBROUTINE SETUP2 


Calling Sequence: 


Purpose: 


Common Blocks Required: 


Subroutines Required: 


CALL SETUP2 


This subroutine initializes flags and constants 
before any of the program options are initiated, 

ANKOR, CETBL2, CETBL3, CNTRL, CONST, 

ELMNT, INPUT, INTVAR, MCCOM, MOON, OBSIT, 
PERT, PLNET, SAVE, STATE 

CLOSE, DATE, DVMAG, FIND, M50EPM, M50LEQ, 
M50MDT, MVTRN, NUTAIT, NUTATE, OBLTY, OBSET, 
ORBIT, PLANET, TRMN 




sy3\i;bolic 

COMMON 


I/O 

NA.ME 

DBIENSION BLOCK 

DEFINITION 






















ATT 


AU 


cov 


DAYL 


DAYO 


DEC 


DJL 


DJO 


DX 


EJO 


ELM 


ETC 


GM 


HRL 


HRO 


IDATT 


IDSAT 


IFIND 


JC 


JL 


JMN 


JT 



Attitude unit vector in mean 
of 1950. 


Astronomical unit 


State estimation covariance 
matrix. 


Launch day 


Initial declination of 
attitude 


Modified Julian 
launch date 


Modified Julian date of 
state epoch. 


Velocity 


Ephemeris date of 
state epoch 


Orbital elements of 
initial state 


Ephemeris time correction 


Gravitational constants of 
the planets 


Hour of launch epoch 


Hour of state epoch 


Element set number of attitude 
desired from element set. 


Satellite identification number 


Element set number of state 
desired from GTDS file 


Central planet number 


Launch planet number 


Planetary ephemeris fla 


Target planet number 
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T /O 


SYMBOUC COMMON 

name DBIENSIQN BLOCH 


DEFINITION 



j Input state coordinate 
I INPUTa019> i system flag 


\ I 

INPUT(1029) • Lunar oblateness flag ____ 


; j Planets in system to be 

1 INPUT(lOOl) I integrated 


Lunar field model 
number 


I/O unit number of 
attitude file 


Observation sites latitudes 


Observation sites longitudes 


Position unit 
conversion factor 


Twice pi. 


Initial right ascension 
of attitude 


Radian to degrees conversion 
factor. 


Mean radius of the 




planets 

■ 

Desired orbit radius at 
target planet 

■ 

Seconds of launch epoch 


Seconds of state epoch 

H 

Solar pressure constant 

m 

Spacecraft area 

m 

Solar pressure at 1 au 

■ 

Initial time since 
state epoch. 

■ 

Time of closest approach 

9 

Ignition and burnout times 
of the engines. 

9 

Epoch of lunar elements 

9 

Current modified 
Julian date 


Velocity conversion factor 

















































SYMBOLIC COMMON 

I/O NAME DIMENSION BLOCK DEFINITION 


O 

VINTT 



Circular velocity of desired 
target planet’s final orbit 

I 

wo 

■■1 


Initial weight 

I 

WP 

12 


Rotation rates of the planets 

O 

WT 

1 


Current weight 

o 

WTI 

1 


Weight after engine burn 

o 

X 

3 


Position 

I 

XMINL 

1 


Minutes of launch epoch 

I 

XMINO 

1 


Minutes of state epoch 

I 

XMONL 

1 


Month of launch epoch 

I 

XMONO 

1 


Month of state epoch 

I 

XMOON 

6 


Initial position of moon 

I 

YRL 

1 


Year of launch epoch 

I 

YRO 

1 


Month of launch epoch 
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Description: 


The function of this subroutine is to initialize constants and flags and perform 

coordinate rotations when necessary. This subroutine does not have a complicated 

logic flow or theory. Thus, this description will consist of a chronological description 

of the functions performed. 

1. Initialize Encke rectification factor, 

2. Set up initial state, epoch, and covariance matrix from a call to FIND, if 
IFIND is non-zero. 

3 . Determine the modified Julian date of the state epoch and the ephemeris time 
correction. If the ephemeris time correction is not input, it is calculated 
from ETC = DJO + (38.66 + .0025921 (DJO -40000) ) , 

where ETC is the ephemeris time correction in seconds, and 
DJO is the modified Julian date of the state epoch. 

4. If the liftoff epoch is not input, set it equal to the state epoch. 

5. Set up the solar-pressure constant as follows: 

SOL = 10“^ (SOLATIA) (SPRESS) AU^ 
where SOL is the solar pressure constant, 

2 

SO LARA is the spacecraft area in cm , 

2 

SPRESS is the solara pressure at lAU in dynes/cm , and 

AU is the astronomical unit. 

6. Set the central planet equal to the launch planet. 

7. If the state is initialized through subroutine FIND (IFIND = 0) skip to 10, 
otherwise calculate the position and velocity vectors if orbital elements 
are input. 

8. Convert input units to program units (KM and KM/SEC). 

9. Rotate from input coordinate system to Earth mean equator and equinox of 1950, 

10, Initialize weights in STATE common for use in engine burns. 

11, Set up ANKOR common and determine the circular velocity of the desired 
final orbit. 

12, If IDATT is non-zero, determine the initial right ascension and declination of the 
attitude vector from a read from unit number NATUNT, 
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13 . 


Initialize ATT, a unit vector in the direction of the attitude, from the initial 
right ascension and declination, 

14. If the Moon is to be simulated by osculating elements, determine those 
elements from XMOON using subroutine ORBIT and set up MOON common. 

15. If the tape or disk ephemeris is to be used, perform initial reads. 

16. Set up the DST array for use in subroutine CLOSE to determine the 
central planet. 

17. Set up the observation site common. The observation site common consists 
of the following information: 

a. Vector from the center of the Earth to the site in Earth'fixed 
coordinates (XOBS). 

b. The velocity of the site (DOBS). 

c. Rotation matrix from the Earth equator and Greenwich to a site local 
coordinate system (OBSROT). 
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SUBROUTINE SHADOW 


Calling Sequence: CALL SHADOW 

Purpose: This routine calculates the times of xmibral and 

penumbral passage with respect to the launch and 
target planets. It also calculates the times that the 
spacecraft is occulted by the target planet. 

Common Blocks Required; CNTRL, CONST, INPUT, INTVAR, PLNET, SHAD, 

STATE 

Subroutines Required: DVMAG, INTERP, PLANET 


Input / Output 


I/O 

SYMBOLIC 

NAME 

DIMENSION 

COMMON 

BLOCK 

DEFINITION 

I/O 

DSAD 

3,5 


Array of back distances to the 
shadow cones 

I 

ELM 

6 

STATE(14) 

Spacecraft's osculating 
orbital elements 

I 

JC 

1 


Central planet number 

I 

JL 

1 


Launch planet number 

I 

KFIRST 

1 


First pass flag 

I 

METH 



Trajectory propagation indicator 

I 

T 

1 


Current time 

I 

TSAD 

1 


Times of back shadow distances 

o 

TSX 

1 

lHiSS!H 

Array of shadow passage times 

I 

X 

6 


Current position and velocity 
vectors 
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Theory: 

The distance to the shadow cone, D, can be determined from trigometric relationships 
by examining Figure 1. 



D = |rSC sin e + (RSC cos 0 - RE sin q) tan ey - REj / cos a 

where nr is the half cone angle obtained from 

sin a = (RE - RE) / AXS 
' sun 

n is the angle beUveen the vector from the planet to the spacecraft 
and the Sun to the planet. 

RE is the radius of the planet 


The same type of cone is employed for occultation except that the Sun is replaced by 
the launch planet and the planet is the target planet. 

The distance to the penumbra! cone is obtained in a similar manner, (see Figure 2) 



where in this case, the half cone angle, otj is obtained from 



Description: 

The times of umbral and prenumbral passage are determined in this subroutine. There 
are a total of ten times which may be determined in this routine. These times consist 
of entrance and exit of the following cones: 


KJ 


1. Launch planet umbra 

2 . Launch planet penumbra 

3. Target planet umbra 

4. Target planet penumbra 

5. Occultation by target planet 


There is a loop around the 'logic that determines the times. The internal flag, KJ, is 
the index of this loop and determines which shadow time is being calculated. (See 
above Table), 

After the internal constants and flags are set up for loops and other purposes, the 
subroutine determines the distance from the shadow cone using equations (1) or (2). 
There are two criteria used to determine whether a shadow cone could have been 
passed on the last compute step. 

1. Present position inside shadow cone while last position 
outside cone, or vice versa. 

2. Spacecraft passed a minimum to the cone. 

If neither of these criteria are satisfied, the spacecraft could not have flown through 
the shadow cone on the last step. At this point, flow is transferred to the location where 
the flags are set to loop on the next shadow time. If one of the criteria is satisfied, the 
spacecraft could have flown through the cone and the logic flow is transferred to the 
location where the time of shadow crossing is determined. The time of crossing is 
determined through a Newton-Raphson type iteration with subroutine INTERP. INTERP 
is used to determine the spacecraft state at the same time (T). This state is used in 
equations (1) or (2) to determine the distance to the shadow cone. T is adjusted by the 
Newton-Raphson scheme to drive the distance from the shadow cone to zero. The N-R 
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iteration scheme, as implemented, determines the time of shadow crossing from 


T = T -5- DELT 


DELT 



where D is the distance to the shadow cone and 


( 3 ) 


is the inverse of the derivative of the distance from 

the shadow cone with respect to time* 

The derivative of the distance to the shadow cone with respect to time is determined 
analytically from the spacecraft’s velocity vector and position with respect to the 
shadow cone. The derivative is equal to the component of the spacecraft's velocity 
along the direction normal to the shadow cone. This is represented vectorially by 


d D 
dt 



( 4 ) 


where V is the spacecraft's velocity and 

2 is the unit vector normal to the shadow cone (see Figure below) 



Define the X', Y', Z' coordinate system with X' along the XS vector, Z' along the N 
vector, and Y' defining a right-handed system, Figure 3. N is obtained from 

/K 

N = (XSC X XS) / \^C\ . (5) 

A 

Then, the vector normal to the shadow cone, Z, in the primed system is expressed 
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as 


( 6 ) 


[b] { 0} (7) 

where [b] is the rotation matrix from the primed system 
to the original system. 

The first column of the B matrix is a unit vector along XS, The third column 

A 

is the vector N while the middle column is a vector obtained by the cross-product 

A. 

of N and a unit vector along XS, Equations (4) to (6) define the derivative of the 
distance shadow cone with respect to time. 

There is a limit to the time step allowed on each iteration. There are usually no 
convergence problems when one point is inside the shadow cone and the other outside. 
However, there is some convergence problem when a minimum to the shadow cone 



In this example, the spacecraft flight path just dips into the shadow cone. The problem 
arises when the derivative is calculated at point 1. The N-R technique would calculate 
point 2 as the entrance time. Since the minimum was skipped over, the iteration would 
converge on the shadow exit time instead of the entrance time it was expecting to 
determine. This problem was solved by testing on the sign of the derivative. Logic 
is included to reset the iteration to the last step and halve the calculated change in 
time, if the derivative changes sign. If the derivative changes sign more than five 
times, it is assumed that the spacecraft does not fly through the shadow cone. The 
shadow times determined are stored in the TSX array of SHAD common. The times 
are output from the array in subroutine SADOUT* 

The DSAD array is updated on each of the passes in the KJ loop. On completion of this 
loop, the TSAD array is updated and the subroutine terminates. 


r-sm a 

cos Of 

I 0 


Z in the original coordinate system is 
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SUBROUTINE SHADOW 



Set up constants 
and flags ^ 




1 

' 


KJ = KJ + 1 



Determine distance to shadow cone 
using equation (1) or (2) 



pLTST =,TRUE. 


^1 

i 

Determine if entrance or exit time 
to be calculated 
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Set large times 
for shadow times 








update array of distances 
to shadow cone, DSAD, 
and time array, TSAD i 






SUBROUTINE SHORB2 


Calling Sequence: 

CALL SHORB2 (ELM, SUN, RC, RSUN, JUMB, 
JPEN, UMBIN, UMBOUT, PENIN, PENOUT) 

Purpose: 

This subroutine calculates the true anomaly of a 
given orbit that intersects the umbra and/or 
penumbra of a planet with respect to the Sun or 
another planet. 

Common Blocks Required: 

None 

Subroutine Required: 

ROTATE, QUARTC 

Input / Output 




1/0 

SYMBOLIC 

NAME 

PROGRAM 
. DIMENSION 

COMMON 

BLOCK 

DEFINITION 

Hi 

ELM 

6 

Calling 

Operand 

Orbital Elements 

I 

SUN 

3 

Calling 

Operand 

Position coordinates of Sun 

I 

RC 

1 

Calling 

Operand 

Radius of Planet 

I 

RSUN 

1 

Calling 

Operand 

Radius of Sun 

I/O 

jumb/jpen 

1 

Calling 

Operand 

Umbra and Penumbra Flag 

o 

UMBIN 

1 

Calling 

Operand 

True anomaly when spacecraft 
enters umbra. 

o 

UMBOUT 

1 

Calling 

Operand 

True anomaly when spacecraft 
leaves umbra. 

o 

PENIN 

1 

C ailing 
Operand 

True anomaly when spacecraft 
enters penumbra. 

0 

PENOUT 

1 

Calling 

Operand 

True anomaly when spacecraft 
leaves penumbra. 


Note: ELM and SUN must be expressed in the same coordinate system. All input/ 

output angles are in radians. 
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Description: The true anomaly at which a spacecraft enters or leaves the UMBRA/PENUMBRA 

may be found by solving a quartic in the cosine of the true anomaly. For near - 
circular orbits (E . LT. .0015), a direct calculation is made for a close approx- 
imation of the intersections. 

On input, the flags JUMB/JPEN must be set not equal to zero to calculate the 
UMBR A L/PE NUMERAL intersections respectively. 

On output, the flags will have values 1 - 5 as follows: 

(1) Impact or escape central planet (no shadows calculated) 

(2) No shadow possible 

(3) No real solutions on night side of terminator 

(4) Solutions found 

(5) No real solutions found 

If JUMB/JPEN .NE. 4 on return, the output quantities UM BIN, UMBOUT/PENIN, 
PENOUT will be zero. 

Note: The output quantities UMBIN, UMBOUT/PENIN, PENOUT will have values 
-2n< 0 < 2 7T with UMBOUT > UMBIN and PENOUT > PENIN. 
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Theory: The distance of the spacecraft from the central planet is given by 

_ P 

^ 1+e cos {^+y) 

where P is the semi-latus rectum, e the eccentricity, 7 the angle .between 
pericenter and the projection of the shadow cone on the orbit plane, and B is 
the in-orbit plane angle from the shadow cone centerline projection to the space- 
craft. 

The distance to the shadow is given by P = R/sin {d+0) where R is the planet 
radius, C? is half the shadow cone angle, and^is the angle between the line from 
the planet's center to the point on the shadow cone and the shadow cone centerline, 
(See Figure SHORB2.1) 

THETA and BETA can be related through spherical trigonometry by 

cos^= cos d cos Oy where B is the angle between the shadow cone 
centerline and the orbit plane. 

Since d , y, P and e are known constants, r and P can be equated, yielding the 
following equation 

p R 

. I 1 I I I . n » y I I ■.!»«- 

1+e cos (^+y) (sinfficos ^ COS0 + cos© Vi-c^^^ cos^^ ) 

which can be squared twice to yield the following quartic in cos (0), 

4 3 2 

COEF (5) * X + COEF (4) * x + COEF (3) * x + COEF (2) * x + COEF (1) = 0 
where 

X = cos (^) 

COEF (1) = 

COEF (2) = -2 BC 

COEF (3) = B^ +2 AC + (l+cos^^ ) 

COEF (4) = -2 AB 

COEF (5) = A^ - cos^^ 

and 

2 2 2 
A = (P sin©cos ^ - R e cos y) +(Resiny) +(Pcos^cosd) 
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Theory (cont'd) 


B = 2 R (P sin©? cos ^ - R e cos y) 

2 2 . 2 ^,, 2 2 
C = R (1 - e sm y ) - P cos a 

D = 2 PR e sin y cos a 

This qnartic is solved in subroutine QUARTO, which also outputs the number of 
roots found. If real roots exist, then the correct sign of ©must be found by 
returning to the original equation (since cosine is an even function), [cf. check 
quadrants of solutions^ . Once the sign is known, cos 0 is replaced by 0 . Since 
the angle 7 is the true anomaly of the shadow cone centerline projection in the 
orbit plane, the smallest absolute values of 0will be the desired intersections 
with the cone. Therefore the roots are ordered smallest first. 

It is still possible that the intersections lie on the wrong side of the planet, so a 
check is made to mal^e sure that © is less than the angle from the centerline 
projection to the edge of the planet. [cf. check that solutions are on right side 
of umbral terminator] . 

The actual true anomalies of intersection are given hy 0 + 7 and the output 
quantities are ordered so that the spacecraft enters the UMBRA/PENUMBRA 
before exiting (i.e. UMBOUT is greater than UMBIN). 

If the orbit is circular, then r is constant and r = — : jr-r > where 

sin (©3 + 0^) 

0c = arc sin ( R/r ) - m which implies that 0 = arc cos (cos 0c/ cos 5 ). 

c 

Here tlie quadrant checks are unnecessary since there are no extraneous roots. 

The theory is exactly the same for PE NUMERAL cone intersections except for 
the angles ©2 and 7 , describing the cone. The half cone angle is 

arc sin ^(radius of Sun + radius of planet)/ distance to Sun.^ The angle 

^PENUMBRA ^UMBRA ^ opposite 

side of the planet for PENUMBRA. The quadrant checks are slightly different 
in that the maximum values of 0 are desired and 0 must be greater than the angle 
from the Sun to the edge of the planet. The remainder of the calculations remain 
the same. 
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It is important to note that the assumption has been made that 7, P and 
are relatively constant throughout one period of revolution of the spacecraft. 


Note: Items in square brackets refer to comment cards in subroutine. 




SUBROUTINE SOL 


Calling Sequence: 


CALL SOL 


Purpose: This subroutine determines the position 

of the Sun with respect to the Earth. 

Common Blocks Required: CNTRL, CONST, INPUT, INTVAR, PLNET, STATE' 

Subroutines Required: M50MDT, OBLTY, ROTATE 


Input / Output 


SYMBOLIC COMMON 

I/O NAME DIMENSION BLOCK DEFINITION 

I 

EJO 

1 

ISSHI 

Ephemeris time of state epoch 

I 

EJ1900 

1 


Ephemeris time since 1900 

I 

JC 

1 


Central planet number 

I 

T 

1 

iRSHBi 

Current time 

O 

XP 

6,12 


Positions and velocities of the 
planets 


Theory: 

The position of the Sun with respect to the Earth is determined from the mean motion of 
the Sun as described in the Supplement to the Nautical Ephemeris. The mean anomaly of the 
Sun is obtained from 

G = 358.47584^ + .985600267 d - .1.12(10)”^ - 7(10)“^ (1) 

where 

d is the number of days since 1900, and 
D is the number of Julian centuries since 1900. 

The argument of perifocus is obtained from 

GAM =281.22083 +4.70684(10)"^ d +3.39(10)”^ + 7(10)“^ (2) 
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The eccentric anomaly can be determined from the power series expansion of Kepler* s 
equation since the eccentricity, e, is small. This equation is 

2 ^3 ^2 

E = G+e sin G + sin 2G + — ( 3 sin G - sin G) 

Z o 


( 3 ) 


The X and Y components of the Sun are obtained from the ellipse as 


X' = a (cos E-e) 

Y* = a sin E (4) 

t 

Z =0 
where 

a is the semi-major axis of Earth*s orbit about the Sun. 

This X and Y position is rotated about the Z axis to account for the argument of 
perifocus. Thus 

X - cos (GAM) X’ - sin (GAM) Y* 

Y = sin (GAM) X’ + cos (GAIVI) Y* 

Z ^ 0 

This vector represents the position of the Sun with respect to the Earth in the mean 
equinox and ecliptic of date. This vector is rotated to the mean equator and equinox 
of 1950 using subroutines M50MDT, OBLTY to establish the rotation matrices and 
ROTATE to perform the matrix multiplication. 
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SUBROUTINE SOLP 


Calling Sequencer CALL SOLP 

Purpose: This subroutine calculates the acceleration due 

to solar pressure. 

Common Blocks Required: CONST, GRAVTY, INPUT, PLNET, PERT, 

STATE 

Subroutines Required; CROSS, DVMAG, VNORM 


Input / Output 


SYMBOLIC COMMON 

l/O NAME DIMENSION BLOCK DEFINITION 

I 

ATT 

3 

HSRSII 

Unit vector along spacecraft attitude 

mm 

KP 

12 


Planets in the system 

■ 

KSOLP 

1 

INPUT(1084) 

Solar pressure flag 

I/O 

RCART 

3 


Perturbing acceleration 

I 

REFLEK 

1 


Spacecraft reflectivity constant 

I 

SOL 

1 


Solar pressure constant 

1— ( 

W 

1 


Current spacecraft mass 

1 I 

X 

3 

GRAVTY(l) 

Current spacecraft position vector with 
respect to central planet 


Theory: 

The acceleration due to solar pressure can be calculated using two different models. In 
the first model, the solar pressure force acts along the radial direction from the Sun, 
This model assumes the spacecraft is a sphere or a flat plate perpendicular to the Sun’s 
rays. Thus the acceleration can be obtained from, 

SOL 

“ REFLEK) X 

sp W R ‘ sun 

sun 


( 1 ) 
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where 

W is the spacecraft mass 

R is the distance from the Sun 

sun 

REFLEK is the reflectivity coefficient 

X is the unit vector from the Sun to the spacecraft, and 

sun 

SOL is a constant defined by 

o -8 

SOL=Au"^ (SOLARA) (SPRESS) (10) 

where SOLARA is the spacecraft area 

SPRESS is the solar pressure at 1 Au 

In the second model, the spacecraft is assumed to be an object spinning about its 
centerline. This kind of a model will contribute two components to the solar pressure 
force. The first component is due to the absorbed light and is along the radial direction 
while the second component is due to reflected light and is normal to the centerline. 



For this model, the radial component is determined from 


( a ) 
sp 


rad 


SQL 
W R 


cos 0 ( 1-REFLK) X 


sun 


sun 


where 0 is defined in Figure 1. 

The reflective contribution to the solar pressure is obtained from 


(a ) 
sp 


= 2 


SOL 


nor 


W R 


REFLEK cos 0 F 


sun 


n 


( 2 ) 


( 3 ) 
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where F is a unit vector normal to the plane containing the centerline 
n 

and the Sun. 

The total acceleration is the sum of the radial and normal components. 

Description: 

The subroutine determines if the spacecraft is in the umbral cone of any planet before 
the solar pressure acceleration is determined. The distance from the umbral cone is 
calculated from equation (1) of the SHADOW subroutine description. If the spacecraft 
is in an umbral cone»the solar pressure is assumed to be zero and the subroutine returns. 
If the spacecraft is not in shadows, the solar pressure is calculated from equation (1) 
or equations (2) and (3) according to the setting of the KSOLP flag. The solar pressure 
acceleration is added to the perturbing acceleration in RCART before the subroutine 
returns . 
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SUBROUTINE SPER 


Calling Sequence: 
Purpose: 


Common Blocks used: 
Subroutines Required; 


CALL SPER (X, Y) 

To convert the Cartesian coordinates X(l), X(2), and X(3) 
to spherical coordinates, 

Y(l) = + X(2)^ + X(3)^ 

Y(2) = tan"^ (X(3) / ^ X(l)^ +X(2)^), -90°<Y (2) <9o“ 

Y(3) = tan"^ (X (2) / X(l)) , -180° < Y(3) < 180° 

Units of Y{2) and Y(3) are degrees. 

None 

None 


Input / Output 


“ — — — — — — 

I/O 

SYMBOLIC 

NAME 

DIMENSION 

DEFINITION 

I 

X 

3 

Input Cartesian Vector 

O 

Y 

3 

Output Spherical Coordinates 
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SUBROUTINE SPNM 


Calling Sequence: 


CALL SPNM (NMAX, S, C, P) 


Purpose: 


SPNM calculates the Legendre polynomials 

o NMAX+1 „ 

P^(S)to 


Common Blocks Required: None 

Subroutines Required: None 


Reference: 


GULICK, L. J., (1970), ”A comparison of Methods 
for Computing Gravitational Potential Derivatives", 
ESSA Technical Report, C & GS 40. 


Input/ Output 


::: 

I/O 

A.-I. . . . 

SYMBOLIC 

NAME 

DIMENSION 

COMMON 

BLOCK 

DEFINITION 

I 

C 

1 

■alii 


I 

NMAX 

1 

Calling 

Operand 

Highest degree desired + 1 

o 

P 

17,19 

Calling 

Operand 

Array of polynomials 

I 

S 

1 

Calling 

Operand 

Argument of polynomials 


Theory; 

The associated Legendre polynomials are calculated from the following recursion 
relationship: 


p“ (X) = 1 
o'' 

Pg (X) = Y (3x^-1) 


P^ (x) = X 


P^ (X) = 3x(l-x ) 


1/2 


(X) = (l-x2) 


1/2 


P^ (x) = 3(l-x^) 



1/2 


(X) = (2m-l) (1-x ) 



1 

1 


(x) +P 


m 

n-2 


(X) 


For a derivation of this relationship see the above reference. 
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Description: 


SPNM calculates the Legendre polynomials of S for all degrees from zero to 
NMAX-1 and for all orders up to NMAX +1, and stores them in the array P. 

C must be equal to NMAX must be less than or equal to 17. The 

indices are both one greater than the corresponding index used in the literature. 
Thus P(3, 1) = P^ in the usual notation for the associated Legendre polynomials. 
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SUBROUTINE SPNM 
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FUNCTION SUNMIN 


Calling Sequence; FUNCTION SUNMIN (X, Y, Z) 

Purpose: This function determines the minimum angle 

between vector Z and a plane formed by vectors 
X and Y. The angle must lie between X and Y. 

Common Blocks Required; CONST 


Subroutines Required; CROSS, ROTATE, VNORM 

Input / Output 


I/O 

SYMBOLIC 

NAME 

DIMENSION 

COMMON 

BLOCK 

DEFINITION 

I 

PI2 

HHi 


Twice pi 

1—1 

RAD 

1 

BBHH 

Radian to degree conversion factor 

I 

X 

3 

CALLING 

OPERAND 

Vector X as described in Purpose 

I 

Y 

3 

CALLING 

OPERAND 

Vector Y as described in Purpose 

Hi 

Z , 

3 

CALLING 

OPERAND 

Vector Z as described in Purpose 


Theory; 

A rotation matrix is determined which transforms to a coordinate system with the X-axis 
along the X vector, the Y-axis normal to the plane formed by the vectors X and Y, and the 
Z-axis forming a right-handed system. This matrix is established by first calculating the 
unit vectors R and S defined by, 

E = XxY / (XI |YI 
‘ = RxX/ iX| 

Then the first column of the matrix is the unit vector along vector X. The second column 

A A 

is composed of S while the last column is R . The longitude of vectors Y and Z are 


1 
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determined in the new coordinate system. Note, the longitude of vector X is zero. 
If the longitude of Z is between zero and the longitude of Y,the minimum angle is 
equal to 

SUNMIN= sin”^ (R . Z) / [Z| . 


If the longitude of Z is not between X and Y, the minimum angle is equal to the minimum 
of 


^ A 

SUNMIN^ = cos ~ ( Z • X ) 

jj^ A A. 

SUNMINg - cos“ (Z . Y) . 
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SUBROUTINE SUNMIN 
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SUBROUTINE TABINT 


Calling Sequence: CALL TABINT (X, K, J, N, R) 

Puipose: This subroutine determines the spacecraft thrust 

and mass at the current time from input thrust 
and mass flow tables. 

Common Block Required: INPUT 

Subroutines Required: None 


Input/Output 


SYMBOLIC COMMON 

I/O NAME DIMENSION BLOCK DEFINITION 

■ 

J 

1 

CALLING 

OPERAND 

Location of the beginning of the dependent 
variable table in the input array 

m 

K 

1 

CALLING 

OPERAND 

Location of the beginning of the indepen- 
dent variable table in the input array 

I 

N 

1 

CALLING 

OPERAND 

Number of points in the table 

O 

R 

1 

CALLING 

OPERAND 

Output current thrust or mass 

I 

X 

1 

CALLING 

OPERAND 

Time from ignition of the 
desired engine. 


Description: 

The tables that are used to determine thrust or mass values are in two parts. The first 

part is the independent variable beginning in location K of the input array. This array 
consists of the times from engine ignition and must be monotonically increasing. The 
second part of the table is an array beginning in location J of the input array. This array 
contains values of the thrust or mass flow rate at the corresponding times of the first array. 
For example, the thrust in location J+2 occurs at the time since ignition input in location 
K+2. The value of J is used to determine if thrust or mass values are to be determined. 

If J is greater than 350 and less than 379, then the mass is to be determined. Otherwise, 
a thrust table is being used. 
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If the thrust is to be determined, the thrust is obtained from 


R = A(L) + ^A(L) -A (L-l)j ^X-A(M)j j ^A(M)-A(M>-l)j 
where the time X lies between 


( 1 ) 


A (M) and A(M-l) 

and A(L) is the thrust at time A(M) 

\ 

The mass is determined by a trapezoidal integration of the mass flow table up to 
the current time, X, from 


M = 


N . / 

E i 

i=l ^ 


(A (J+i) - A (J+i 




A(K+i) + A (K+i- 


1-d) 


(2) 


where 


N is the location of the last time in the independent variable 
array less than X. 


The final mass is given by 


R 


)( 


X-A(J+N) I A (K+N) + R 


) 


where 

R is determined similar to equation (1) except the mass 
flow rate table is used. 


( 3 ) 
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SUBROUTINE TARGET 


Calling Sequence: 


CALL TARGET 


Purpose: TARGET computes the end constraint error vector 

for midcourse guidance calculations. 

Common Blocks Required: CONST, CNTRL, INPUT, MCCOM, PLNET, 

STATE 

Subroutines Called: M50LEQ, MVTRN, BVE, ORIENT, DVMAG, RETDV, 

ORBIT, RETRO, CROSS, VNORM, ROTAIT 


Input / Output 


I/O 

SYMBOHC 

NAME 

DIMENSION 

COMMON 

BLOCK 

DEEINITION 

IW 

JC 

1 


Central body number of end state 

I 

RTD 

1 


Radians-to-degrees conversion factor 

I 

UM 

12 

ESURI 

3 2 

Gravitational constant array (km /sec ) 

I 

GKS 

1 


2 

Earth’s surface gravity (km/sec ) 


WTO 

1 

BSSRHj 

Initial spacecraft weight (kg) 

I 

DJO 

1 

INPUT(46) 

Julian date of anchor epoch (days) 


ASPMC 

1 

INPUT(441) 

Specific impulse of the trim motor (sec) 

I 

RCIRC 

1 

INPUT(444) 

Final desired orbit radius (km) 

I 

WDROP 

1 

INPUT(473) 

Post-retro drop weight (kg) 

I 

JTARG 

1 


Target body nximber 

m 

IVTI 

1 


Overburn strategy key 

I 

NORMIN 

1 

INPUT(IOSO) 

Retro optimization key 

I 

DV 

3 


Midcourse correction impulse (km/sec) 

o 

DVS 

3 


Spherical components of DV 
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SYMBOUC COMMON 

I/O NAME DIMENSION BLOCK DEFINITION 


I 

BVD 

2 

MCCOM(19) 

Desired miss-vector if IBTR=1 (Ion) 

T 

X 

DVB4 

1 


Previously expended midcourse 
velocity (km/sec) 

O 

DVRET 

1 

iiiiiii 

Retro velocity magnitude (km/ sec) 

O 

TV 

3 


Anti-retro unit vector 
(lunar equator ref) 

O 

DVT 

1 


Trim velocity (km/sec) 

o 

FUELT 

1 


Trim fuel (kg) 

o 

XS 

6 


Cartesian end state 

(km, km/ sec, lunar equator) 

o 

WTF 

1 


Post-midcourse spacecraft weight(kg) 

I 

PSID 

10 

MCCOM{80) 

Desired end constraint vector 

0 

PSI 

10 

liiliill 

End constraint error vector 

I 

I3TR 

1 

MCCOM(167) 

Miss vector type key 
(1=BT, BR, 2= RCA, INC) 

I 

XP 

6,12 

PLNET(l) 

Celestial body states at T 
(Ima, km/sec) 

I 

X 

6 

STATE(l) 

End state (km, Ima/sec) 

I 

T 

1 

STATE(IO) 

End time corresponding to X (sec) 
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Description: 

target is a very important subroutine in the computation of midcourse guidance 
corrections e It computes the end constraint error vector, 0, as a function of the 
desired end conditions and the end state. In the normal mode of operation, each 
guidance law is formulated to constrain radius of closest approach and inclination. 

Desired values of these quantities are combined with actual arrival energy and the 
direction of the approach asymptote to arrive at equivalent "desired" miss-vector 
components, B*T^ and B*R^. This computation is described in Appendix A of 
Reference 1. The first two constraint error vector components are then formulated: 

PSId) = 

PSI(2) = B.R^ - 

where the actual miss-vector is computed in subroutine BVE. The third and fourth 
constraint error components are for time of flight and hyperbolic excess speed, respectively. 

PSI(3) = TFS - T 
PSI(4) = VINFD - VINF 

TFS is the desired time at closest approach measured from anchor epoch and VINFD 
is the square root of the desired arrival energy (C ), The fifth constraint error component 

O 

is post-retro circular excess velocity, assuming the retro to burn at periapsis anti- 
parallel to the velocity there. 

PSI(5) = VDAR - VAR 

VDAR, velocity desired after retro, is supplied by subroutine MCSET, having been computed 
to be circular velocity at the desired arrival radius plus an optional input increment, 

VAR, velocity after retro, is computed as the scalar difference between the arrival 
periapsis speed and the retro velocity magnitude, DVRET. DVRET is, in turn, computed 
from the rocket equation and the midcourse correction velocity in function RETDV, The 
sixth component of PSI is not an error, but rather is the total correction fuel. 

PSI(6) = WTO - WTF + FUELT 
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WTO-WTF is the midcourse correction fuel and FUELT is the trim correction fuel. 

FUELT is computed by the rocket equation from the trim velocity, DVT, about which 
more will be said later. The seventh and eighth components of PSE are the errors in 
achieving the desired periapsis radius, PRD, and the desired inclination, OINC. 

PSI(7) = PRD - PR 
PSI(8) = OINC - SING 

PR is the actual closest approach radius as computed from the end state in BVE. 

SINC is the post-retro inclination, which differs from the approach orbit’s inclination 
only when the variable target inclination procedure is used. 

Retro and Trim Calculations 

The retro- strategy implemented in TARGET depends on: 

1. arrival energy, C 

O 

2. radius of closest approach, r^ 

3 . inclination, i 

4. retro-velocity impulse, 5v 

. 5. input option keys, NORMIN, IVTI and IBTR. 

TARGET computes the "desired” B»T and B»R values as functions of these parameters 
as well as predicting: 

a. firing true anomaly, 0 , on the approach hyperbola. 

b. direction, TV, of the spin-axis at retro-fire. 

c. trim velocity and fuel for in-plane trim, 

(Case 1: NORMIN = 2) 

In this case, subroutine RETRO is used to optimize 0 and TV and to provide the trim velocity. 
Overburn strategies are ignored. Desired miss vector computation depends on IBTR and 
input miss parameters. 

(Case 2: NORlMIN<2, IBTR = 1) 

Overburn strategies are ignored and retro is anti-velocity at periapsis. 
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(Case 3: NOR3\C[N<2, IBTR = IVTI = 0) 


Same as case 2 except for computation of desired miss vector. 

(Case 4; NORMIN <2, IBTR == 2; IVTI = ± 1) 

Same as case 3 for xmderburns*, otherwise variable target inclination computations 
are invoked. 

(Case 5: NORMIN<2> IBTR = 2, IVTI =±2) 

Same as case 3 for underburns*, otherwise variable approach distance computations are 
performed for the desired miss vector, retro direction, and trim velocity. 

* An underburn is defined as the condition when the retro impulse would be sufficient for 
circularizing at the desired radius if the closest approach radius were indeed the desired 
circular orbit radius. 

Variable Target Inclination 

The VTI procedure is derived in Appendix B of Reference 1. It amounts to defining 
desired miss vector components, B»T and B«R, in such a way that an out-of-plane 
retro-burn at periapsis of the approach hyperbola can render a circular orbit of the 
desired radius and inclination. This procedure is applicable only for overburns. The 
sketch shows the retro velocity impulse, AV, in the plane of the approach periapsis 
velocity, V , and the approach angular momentum vector, H. 



Geometry of the VTI Procedure 
The direction of AV is given by 

A A 

A V = V cos rv + H sin o' 

P 

and the new angular momentum vector's direction is 

A A 

H = H cos 5 - V sin ^ 

K p r 
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The aagles, a and 3, are defined in the derivation of the VTI procedure as functions 

of C , 5v, and the desired final orbit radius. The desired miss parameters are 
3 

computed in such a way that the approach orbit's track differs by $ from the desired 

orbit's tract at r , If the closest approach and inclination constraint errors are 
P 

exactly zero, the post-retro orbit will require no time. 


Variable Approach Distance 

The VAD procedure, like the VTI, is applicable only to overburns. The basic idea is 
to define the desired miss vector magnitude in such a way that if the retro is fired 
appropriately in-plane at the desired circular orbit radius, r^, the post-retro orbit 
will be circular. It is assumed, first of all, that closest approach radius, r^, of the 
arrival hyperbola can be varied without significantly changing the arrival energy, C , 

O 

or the retro velocity impulse, gv. Assuming further that r^ is less than the desired 

circular orbit radius, r , we can write 

c 

A A 

V(r ) = v R + v^ 9 
c r c 0 


where v^ is the radial component of velocity and v^ 
circular, post-retro velocity is: 


is the tangential component. 


The 


V (r ) = 
c c 


V 0 
c 


where v^ - / ^ The required retro impulse, ^V, is 
V n 


AV - V^-V=v^K+(v^-v^0 


and 


2 2 2 2 9 
6V = +(V^-Vg) =v -2v^v^+v^ 


= 


JL 


-2 ^ 2 . + ^ 

r r r 
c c c 


3 r r r 

c c c 


+ 

3 r 
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The onlv unknown in the above equation is r . We can solve for r as follows, 

^ p p 



The periapsis constraint error is re-defined for this case as: 


PSI (7) =RP - PR. 


The desired miss-vector magnitude 


is easily formulated from r . 

j p 


BMAG = ( + r ) sin (tan 


V V r 

P P 


V 

P 




The true anomaly at which the retro motor is fired is found from 


cos B =. ( - 1) /e 

r 

c 

where the sign of B is determined by input: if IVTI is positive, 0 is negative and vice 

A 

versa. Defining unit vectors P and Q along periapsis position and velocity vectors, 
respectively, 

A A 

R = P cos B + Q sin0 

A A ^ 

9 = P sin 9 + Q cos $ 
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We define ^ V in terms of an out-of -plane angle, cx> and a flight path angle, y. 


AV 


6v 


(9 cos o? + H sin a) cos y + R sin y 


y 


If the periapsis constraint error is zero, or , and the maneuver will be in-plane. 

If gv is too large to circularize at r for the actual r and c , the maneuver will be 

c P 

out-of-plane. The direction out-of-plane is chosen to minimize the resultant 
inclination error. If gv is too small, y will be chosen so that the radial component 
of post-retro velocity will be nulled, with the tangential component falling wherever 
it may as a result, 

v 

r 

smv = 

^ 6v 

V - v^ 

O 17 

COS a = — , or o; = 77 if I cos a| >1 

gv cos y 


Trim Velocity 

The trim maneuvers in TARGET do not attempt to remove inclination errors. They are 
treated simply as two-impulse Hohmann transfers from the post-retro orbit to the desired 
circular orbit. We require only the specification of periapsis radius and apo-apsis radius 
of the post-retro orbit to compute the required trim velocity. (See TRIM) These may be 
computed, given the post-retro energy, C - , and angular momentum, he. The general form 

oO 

of the post-retro velocity is 


V = V + AV 
a 


= (V, H + v^ 0) + 6^ 


so that the energy (C 


3e 


) is 


C 

3e 


2 


= V 


a 


- -liL = 


(v^ + 6v siny ) 


+ (v + gV cos 01 cos 

9 


- 


r 


418 


+ (6 V sin Of cosy) 



where r is the radius of retro-fire. The tangential post-retro velocity is the 
magnitude of Rx V^. 


RxV = (v + d V cos Qfcos y ) H - (6v sin of cos y ) 0 
a Q 


2 2 
h^ = r’^(v^ +6v cos oi cosy) + sin O' cos y) . 


Reference 1 Bjorkman, W.S. , Midcourse Guidance for Lunar 

and Planetary Orbiting Missions, AMA 71-16, 
March, 1971. 
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SUBROUTIKE TARGET 














PSI(3) = TFS - T 
PSI(4) = VINFD - VINF 
PSI(5) = VDAR - VAR 


NORMIN 


Call ORBIT 
Call RETRO 


IBTR 


IVTI 


VCIRC - VAR 


NTIME = 3 
In-plane overburn 
Compute BMAG 


IVTI 


VTI - Compute 
new inclination 



Compute trim velocity, DVT, as 
pericynthion maneuver 



Compute trim fuel, FUELT 

PSI(6) = total fuel 

PSI(7) = PRD - PR 


Compute retro direction, TV 
I PSI(8) = OINC - SING 


RETURN 
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SUBROUTINE TIMEC 


Calling Sequence: CALL TIMEC 

Purpose: This subroutine controls the time logic during 

numerical integration. Its primary functions 
are to determine the compute interval, dis- 
continuity times, and stopping criteria. 


Common Blocks Required: CONST, CNTRL, INPUT, INTER, INTVAR, 

PERT, SAVE, STATE 

Subroutines Required: CLOSE, CRASH, DOPLER, INTEG, MOTORS, OUTl, 

ORBIT, OUTPUT, SADOUT, SHADOW, TRMN, 
UPDATE. 


Input / Output 


SYMBOLIC COMMON 

I/O NAME DIMENSION BLOCK DEFINITION 

I 

DELT 

10 

INPUT(180) 

Compute intervals 

I 

ERRC 

1 


Error control limit for automatic 
compute interval determination 

I 

DELTMN 



Minimum compute interval 

1— 1 

DELTO 

B|B 


Initial compute interval 

I 

DX 

3 


Spacecraft velocity 

I/O 

ELM 

6 


Spacecraft orbital elements 

I 

GM 

12 

CONST(5) 

Gravitational constants 

I 

JC 

1 

CNTRL{7) 

Central planet number 

I 

JT 

1 


Target planet number 

I/O 

KCA 



Counter used in closest 
approach iteration 
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I/O 


SYIvIBOLIC 

NAME 


DEMEN SION 


I 

KCRASH 

1 

I/O 

KFIRST 

1 

I 

KFMOD 

1 

o 

KDIS 

1 

I 

KDOP 

1 

I 

KHALT 

1 

I 

KJVIETH 

3 

I 

KOUT 

1 

I 

KTHRST 

1 

I 

KSADOW : 

1 

o 

METH 

1 

I 

T 

1 

I 

TCA 

1 

I 

TCATST 

1 

I 

TCOMP 

10 

I 

TF 

1 

I 

TIG 

6 

I 

TMETH 

3 

I 

X 

3 


COMMON 
BLOCK 



STATE(29) 


DEFINITION 


Closest approach flag 


CNTRL(12) First pass flag 


Thrusting mode 



CNTRL(5) I Discontinuity fla 


Doppler flag 

















Error return flag 


Input trajectory propagator 
method 


Output frequency flag 


Thrusting flag 


Shadow flag 


Trajectory propagator to be used 
on this step. 


Current time 


Time of closest approach 


Time to begin closest 
approach testing 


Switching times of compute 
interval table 


Run stop time 


Engine ignition and 
burnout times. 


Switching times of trajectory 
propagator method table 


Spacecraft position 
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Description: 


This subroutine controls the flow of logic during trajectory propagation by 
numerical integration. When the subroutine is initiated, the initial spacecraft 
state is in STATE common. The state at the final time resides in STATE 
common when the subroutine terminates. 

The primary function of this subroutine is to determine the compute interval, 
discontinuity times, and stopping criteria. The discontinuity times consist of 
engine ignition and burnout times, final time, and time of closest approach. The 
compute interval is adjusted so that the integrator stops at those times exactly. 

The state and its derivatives are saved at the beginning of each step. If a dis- 
continuity time is passed during the step, the state is restored to the saved value 
and the compute interval adjusted to integrate to the discontinuity time. 

The compute interval is obtained from the input compute interval table, from the 
discontinuity logic to hit a discontinuity time, or. if the automatic compute interval 
option is used, the compute interval is determined by subroutine RKSEVN and 
passed through INTVAR common. 

The time of closest approach to the target planet is determined by an iteration using 
subroutines CRASH and TIMEC. If the time of closest approach, determined by 
subroutine CRASH, is less than the current time, the state is restored to the last 
step and the state propagated to the time of closest approach. At this point, the 
time of closest approach is recalculated by subroutine CLOSE. If the last time 
of closest approach is within a specified tolerance of the new closest approach time, 
the iteration is converged and the time of closest approach determined. If the 
difference of the times is larger than a specified tolerance, the iteration has not 
converged and the process is repeated, A total of seven iterations are allowed 
with a conversion tolerance of ten seconds. 

Besides its primary functions^ TIMEC also performs many other functions. These 
consist of: 

1. Calls to subroutine SHADOW to determine umbral, penumbral occultation 
times. 
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2. Determining the trajectory propagation method. If the method changes, 
logic is included to change the integration variables to the new set of 
integration variables. 

3. Calls to UPDATE to set up arrays for interpolation. 

4. Calls to OUTl for trajectory output. 

5. Logic to rectify the reference orbit when propagating the state 
using Encke. 

6. Calls to subroutine CLOSE to determine the central planet. 

7. Calls to subroutine DOPLER to get doppler output. 

8. Calls to subroutine MOTORS to simulate an engine burn by impulsive 

velocity. 
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SUBROUTINE TBMEC 



Initialize compute interval closest 
approach iteration flag, discontinuity 
flag and interpolation flag 


ERRC=0 


Determine compute 
interval from input 
table 


T > TMETH(l) 


Determine new trajectory 
propagation method and 
determine new integration 
variables 


discontinuity time 


Test ^ 
for a 

^scontinui^ 

tima^ 


discontinuity time passed 


no discontinuity time 
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1 
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10 
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SUBROUTINE TOBODY 


Calling Sequence: 


CALL TOBODY (JC) 


Purpose: This subroutine flies along a Keplerian conic 

an increment of timCjand determines the 
cartesian state at the end of the step. 

Common Blocks Required: CONST, DUM, STATE 


Subroutines Required: 


ORBIT, TRMN 


Input / Output 


SYMBOLIC COMMON 

I/O NAME DIMENSION BLOCK DEFINITION 


I 

DT 

HHl 


Input time step along conic 

0 

ELM 

12 


Osculating orbital elements along with 
sines and cosines of i, a.', 0 

I 

GM 

12 

CONST{5) 

Gravitational constants 

I 

JC 

1 

CALLING 

OPERAND 

Central planet number 

I/O 

X 

6 

STATE (1) 

Position and velocity vectors of the state 
at the beginning of the step and, on output, 
these vectors at the end of the step 


Description: 

First, the orbital elements are determined from the initial position and velocity vectors 
using subroutine ORBIT, Next the mean motion is determined from 

PV = GM(JC) / SEM^ 

where 

GM(JC) is the. gravitational constant of the central 
planet, and 

SEM is the semi-major axis 

The initial mean anomaly, AMO, is determined from the initial true anomaly using 


430 




















subroutine TRI>.iK. Next, the mean anomaly at the end of the time step, DT, is 
determined from 

AM - AMO + PV (DT) 

The true anomaly at the end of the time step is determined from the mean anomaly 
using subroutine TRMN. Finally, the position and velocity at the end of the time step 
is determined using subroutine ORBIT using the final true anomaly in the orbital elements. 
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SUBROUTINE TRIM 


Calling Sequence: CALL TRIM (ELM, DELV) 

Purpose: TRIM calculates the trim velocity to circularize at 

a desired radius and correct inclination 

Common Blocks Required: CONST, INPUT 
Subroutines Required: None 


Input / Output 


SYMBOLIC 

I/O NAME DIMENSION 

COMMON ■ 

BLOCK DEFINITION 

I 

ELM 

6 

Call List 

Pre-ti'im orbital elements (use-ELM(l)-p 
ELM(2)~e, ELM(4)=w, ELM(5) = i 

0 

DELV 

1 

Call List 

Trim velocity (km/sec) 

I 

RAD 

1 

CONST(l) 

Radians-to-degrees conversion factor 

I 

GM 

12 

CONST(5) 

Gravitational constant arraj(km /sec ) 

I 

RD 

1 

INPUT (444) 

Desired orbit radius (1cm) 

I 

VD 

1 

INPUT(445) 

Circular velocity at RD (km/sec) 

I 

CID 

1 

INPUT(446) 

Desired inclination (deg) 

I 

TRINC 

1 

INPUT(449) 

Inclination tolerance (deg) 

I 

JT 

1 

BiiWMI 

Central body number 


Method: 

Once the retro motor has fired, the spacecraft is in lunar orbit* Assuming tills orbit 
to be elliptical with energy, and angular momentum h^, we will proceed to define 
the trim sequence and the trim fuel, cost. The in -plane trim is accomplished with a 
two-Lmpulse Hohmann transfer to circular orbit at the desired radius, r . 
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The periapsis radius, r , 


and apoapsis radius, r^, can be defined from and h^. 



semi-latus rectum 


eccentricity 


periapsis radius 


r 

a 


P 

1 - e 


apoapsis radius 


a 



r 

a 


2 



semi-major axis 


Case 1: r >r. The semi-major axis, a., and energy, c of the intermediate 

ad 1 3i 

orbit must be 

a + d 
a. = — 

^2 


and . = 
3i 




a. 

1 


r + r^ 
a d 
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The velocit\^ at r before the first impulse is 
* a 



and after the impulse, 



so that the first maneuver requires an impulsive velocity 



while the desired circular velocity is 



so that the second impulse is 



and the total in-plane trim velocity is 
6v = dv^+av^ 
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Case 2: r <r_. In this case, it is slightlv cheaper to transfer first from r 

ad » o - P 

to r By a derivation similar to that for Case 1, we obtain 
a 



It should be noted that the two cases can be computed with the same equations by 

interchanging roles between r and r . 

a p 


Inclination Change 

The inclination is changed by a third impulse executed at the node of the orbit on the 
equator. The impulse is applied on the intermediate orbit of the in-plane adjustment 
at the nodal crossing of larger radius. Although this strategy is not usually optimal, 
it is convenient: it leaves the node invariant, it always permits a solution, and it 
separates the in-plane and out-of-plane trim costs. Let the larger nodal radius 
vector (of either the pre-trim or intermediate oi*bit, actually) be R and its corresponding 
velocity be V . If the inclination is to be changed by §i, the rotated post-impulse 
velocity, will be 


V . = cos 6 f V + (1-cos 5i) R • V R + sin gi R x V 


and 


6V3 = V - V 


= (cos 5i - 1) V + (1-cos d i) R • V R + sin §i R x V 


6v, 


2 2 

(1-cos 5L) + sin 6 i 


= 2 (1 - cos di) [rxV j 
= 4sii^(“. |RxV“f 


V - V - (R-V ) 


= 2 sin( R X V“ 

o 2 


2 sin ( 3 ) 
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To roughly estimate the cost of correcting inclination, assume 
and sm y— = — . 



6v 



22.94 (^ / deg) fii° 


De te rmination 
explanation. 


of the larger-radius node is somewhat tricky and deserves some 



The argument of pericenter, w , is either 0) or cc as shown in the sketch, depending 
on which nodal sense is the ascending one. The true anomaly of the larger-radius node 
is computed according to the following scheme. 


^ tt/2 ^ fr/2 : f = 77--^ 

~ <Ui < — : f ~ 2rf - 

^ 2 

In either case, cos f = - j cos 

r = E 

1 + e cos f 

and the tangential velocity (needed in the plane-change formula) is 

V = ± 

tangential r ^ 

If r is smaller than RD, the plane-change is executed at a node of the circularized orbit. 
An inclination tolerance, TRINC, offers a band within which no inclination correction is 
made. The correction is made only over to the tolerance band. 
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SUBROUTINE TRIM2 


Calling Argument: 


CALL TRIM2 (EL3ME, F, DV, LOPT) 


Purpose: 

Common blocks required: 
Subroutines required: 


This subroutine determines the optimum two 
impulse 180° transfer between two orbits 

CNTRL, CONST, INPUT, PIT 

MVTRN, ORBIT 


Inputs /Outputs 


SYIMBOLIC COMMON 

I/O NAME DIMENSION BLOCK DEFINITION 

I 

CINF 

1 


Desired inclination of final orbit 

O 

m 

1 


Magnitude of the first and second 
trim maneuvers 

o 

DX 

3,2 

PIT(3) 

First and second trim maneuvers in 
same system as ELMi 

11 

ELM I 

12 

C ailing 
Operand 

Orbital elements of initial orbit 

I 

JC 

1 

mm 

Central planet number 

■ 

LOPT 

1 

C ailing 
Operand 

Flag used to calculate trim velocity 
components. Non-zero to calculate 
components 

I 

F 

1 

Calling 
One rand 

True anomaly of the first maneuver 
on the initial orbit 

I 

RFINAL 

HH 


Desired final orbit radius 

I 

VFINAL 

1 


Desired final orbit velocity 

o 

XS 

6 

B8HH 

State before first trim in same 
coordinate system as ELMi 


Reference: 

F. T. Sun, "Analytic Solution for Optimal Two-Impulse 180° Transfer Between 
Noncoplanar Orbits and the Optimal Orientation of the Transfer Plane, AIAA 
Journal, Vol 7, No. 10, 1969. 
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Theory: 

This subroutine determines the optimal two-impulse 180® transfer between noncoplanar 
orbits using the method described in the reference. Since a 180® transfer is specified, 
the first impulse must be applied at the intersection of the initial and final orbit planes. 
Thus, the angle betv^^een the initial and final orbit planes and the position on the initial 
orbit where the maneuver is made can be obtained from the spherical trigonometric 
relationships , see Figure 1. 



Figure 1 


The angle from the reference plane to the common line of nodes in the initial orbit, A. , 
can be determined from the input initial true anomaly, f, and the argument of the 
ascending node of the initial orbit as, 

A = f + (1) 
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Therij the angle bet^^een the tvifo orbit planes, a , can be determined from, 

( 2 ) 


sin /3 = sin is sin i , / sin X 
d 


tan - sin ^ ) 


. X +B , .^d “ H 

sm tan { — — ) 


where i is the inclination 

^ is the angle from the reference plane to the common line of 
nodes in the final orbit plane. 

and the subscripts i and d refer to the initial and desired orbits, 

respectively. 


The radius and velocity components can be determined from standard orbital 
relationships at the initial true anomaly, f. 

The orientation of the transfer plane with respect to the initial and final orbit 
planes is described in Figure 2, 



Figure 2 


The angles and describe the orientation of the transfer plane with respect to 
the initial and final orbit planes, respectively. 


If the inclination of the transfer plane with respect to the initial plane is specified, 
then the optimal velocity can now be determined using Sun's equation 10. 


AV = 





cos + 


cos + 


n+1 J 


1/2 2 

)] I 


2n 
n+1 
2 1/2 


) 


1/2 


( 3 ). 
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where i- is the Eravitational constani. is the radius at f = X- a:,, V and V are the 

' -i d Ri T1 

radial and transversal velocity components on the initial orbit relative to local circular 
velocity (\'A' p:/r ), and n is 


The equation above 
is circular. Thus, 


is somewhat simplified from Sun^s equation since the final orbit 


^2 = « 



( 4 ) 


If the velocity" of each trim maneuver is desired, then 


and 


AVI 

AV 


AV 




1-2 


i 


2 2 


1/2 


V 


2n 

rp^ w — 1 C 0 S 6 L 1 .+ — r 

T1 1n+l T1 ^ n+1 


- 2 


V - 2 
T1 


1/2 


2n ^ 2 d 

— T cos + — 7 

n+1 Tl 1 n+1 


1 - 2 


{1 

in+ 


n+1 lITi 


( 5 ) 


where A V and A V denote the magnitudes of the first and second trim 
maneuvers. 


The direction these impulses are applied can be determined by noting the following 
relationships. 


A V = V - V 

^ Rl RTl Rl 


N1 = -'"t 1 “l 


= V - V_, cos 


TtI - '^Tl “l 


( 6 ) 


The second trim is determined in a similar manner as 


*^2 

- V “V 

R2 RT2 


^''n2 


( 7 ) 
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In the above equations the components of velocity are defined as follows, 


V 

Rl,2 


radial component of velocity of the 
initial or final orbit. 


V 


Tl,2 


Transversal component of velocity of the initial or 
final orbit. 


V 


TT1,2 


Transversal component of velocity of the initial or 
final orbit written in the transfer plane. 


V 

RT1,2 


Radial component of velocity of the transfer orbit at 
initial and final orbit crossings. 


All components of velocity, except the radial components of the transfer orbit in 
equations 6 and 7, are fixed by specifying the initial and final orbits. The radial 
component of velocity is determined from the condition that the total trim velocity 
is to be minimized. The total trim velocity is 


AV - + AVg 


= +avJ 


T1 


N 


RTl Rr 


( 8 ) 




Also, 


V = - V 
RTl RT2 


V „ = 0 

R2 . 


since a 180^ transfer is specified and the final orbit is to be circular. Now, the 
partial derivative of the trim velocity with respect to can be written as. 


( 9 ) 




BV. 


RTl 


V - V 
— RXJ RL 

AV, 


V 

+ RTl 
AV^ 


= 0 


or 


V 


RTl 


^V ? . V R I 
AV, 


( 10 ) 
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The components of the trim velocity obtained from equations 6, 7, and 10 describe 
the trim velocity with respect to the transfer plane. The trim velocity vector in 
the same coordinate system of the initial orbit is obtained through a three Euler 
angle rotation pictured in the figure below. 


Z 



In the figure above, x corresponds to the radial direction, y to the transversal 
direction, and z to the normal direction. 

The angular elements of the reference orbit define the Euler angles. Thus the 
transformation from the x, y, z system to the X, Y, Z system is 


[X\ 

- cos ib cos n 
-cos i sin Qsinj/j 

-sin 0 cos n 
-cos i sin Qcos 0 

sin i sin D - 

/ x\ 


cos ib sin 0 
+COS i cos Hsin 0 

-sin 0 sin O 
+COS i cos 0 cos 0 

-sin i cos D 

jy) 

Iz) 

_ sin i cos 0 

sin i sin 0 

cos i 

1 ^ 1 


where il) = f + co 


( 11 ) 


The above equation is used to transform the trim velocity components from an orbit 
plane coordinate system to the system of the reference orbit. 


Optimum Inclination of the Transfer Plane 

The condition for the optimal orientation of the transfer plane is expressed by 

1 “ 2 ^ cos CO 2 \ 


sin (jt59 

^ = - n 

sin Cii 




1 - 2p cos 0), 


I 


( 12 ) 
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wnere 


Pi 


1/2 








V 


T1 


2 u ^1/^d 

r + r 
d 1 


1/2 


Equation 12 along with the condition 




a>2 = <r+oi^ 


( 13 ) 


yields a set of equations which can be solved for 6iij^ or to yield the optimum 
orientation of the transfer plane. The solutions to equation 12 resulted in a sixth 
order pol\momial in sin (u. The equation was solved numerically in order to avoid 
the cximbersome task of solving a sixth order equation, A New’ton-Raphson procedure 
was employed to determine the solution to equation 13, Sun, in the reference, states 
that the solution is unique. Thus, the task of finding multiple solutions with the 
Newton-Raphson method is not required. 


Description: 

The initial orbital elements and argument of the ascending node of the final orbit is 
brought into the subroutine via the argument list. The angular components of the 
initial and final orbits are used in equations 1 and 2 to determine the position on the 
initial orbit where the trim maneuver will take place. Next, the transversal and radial 
components of velocity and other quantities required for Sun’s equations are determined. 
The Newton-Raphson technique described by equations 12 and 13 are used to determine 
the inclination of the transfer orbit with respect to the initial orbit. 

The magnitude of the velocity is determined from Sun's equation 10. If only the 
magnitude of the velocity is required, the subroutine returns. This option is executed 
through the LOPT flag brought in through the argument list. If the flag is equal to zero, 
only the velocity magnitude is calculated. Otherwise, the components of the trim velocity 
in the same coordinate system as the initial orbital elements are determined. 

Equations 6, 7. and 10 are used to determine the components of the trim velocity in the 
transfer plane. The first trim velocity is rotated from the transfer plane to the initial 
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orbit plane by a rotation through an angle about the radial velocitj' component. 
This rotation is expressed by. 


[dx| 

' 1 

0 

0 “ 

(av ) 





1 ^ 1 

|dy = 

0 

cos 

sin 


(dz I 

-0 

-sin 

cos 

I^^n) 


(14) 


Next, the rotation defined by equation 11 is employed to obtain the first trim velocity 
in the desired system. The angular quantities in this rotation are obtained from the 
initial orbit. 

The trim velocity from equation 14 is added to the initial state to determine the transfer 
orbit initial conditions. These conditions are used in ORBIT to determine the elements 
of the transfer orbit. The normal, radial, and transversal components from equation 7 
are used directly in equation 11 to determine the second trim velocity in the desired 
system . The elements used in equation 11 are from the transfer orbit for the second 
trim. The logic to rotate the trim components are accomplished in a loop. The IK 
flag is used to determine the current maneuver. 
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SUBROUTINE TRB12 






Get magnitudes of each maneuver 
from equation 5. 


Determine velocity components of first 
trim in transfer plane from equations 
6 and 10. 


Rotate to initial orbit plane using 
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FUNCTION TRMN 


Calling Sequence: 


Y - TRMN (J, Q, E) 


Purpose: This function calculates the mean anomaly 

from the true anomaly and vice-versa. 

Common Blocks Required: CONST 

Subroutines Required: None 


Input / Output 


SYIVIBOLIC COMMON 

I/O NAME DIMENSION BLOCK DEFINITION 

I 

E 

1 

Calling 

Operand 

Eccentricity 

I 

J 

1 

C ailing 
Operand 

Flag to determine the computation 
=1 Calculate mean from true anomaly 
=-l Calculate true from mean anomaly 

I 

PI 

1 

CONST(2) 

pi, fT 

I 

PI2 

1 

CONST(3) 

twice pi 

. 

1 

Q 

1 

Calling 

Operand 

Input mean or true anomaly 


Theory: 

I. Calculation of the mean anomaly from the true anomaly. The equations to determine 
the mean anomaly are dependent on the eccentricity, e. If e is less than 1, the mean 
anomaly is obtained as follows, 

E = cos ^ j(cos f + e) / <l+e cos f)J (1) 

where E is the eccentric anomaly and 
f is the input true aijomaly. 

Then the mean anomaly, M, is obtained from Kepler equation, as 

M = E “ e sin E (2) 
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When hyperbolic motion is encountered e > 1, the mean anomaly is obtained by 
first calculating the auxiliary variable, F, from 



Then the mean anomaly is determined from 

M = e sinh F - F (4) 


II. Calculating the true anomaly given the mean anomaly. Kepler^s equation, equation (2), 
is solved for the eccentric anomaly given the mean anomaly. This is a transcendental 
equation and an iterative procedure is required to solve for E, 

If a first-order Taylor series is used to represent Kepler’s equation, it becomes 

m = 6 (Ej^) + 0 ''(Eq) ae^, (5) 

where 0 (E^) = - e sin E^ 

0^(E^) = 1 - e cos E^ 


If we assume that 


then 


0 (E,) = 


M - Mjj = am = 0 (E^) AEg, 


or 


M 

A J] = — - Q 

0 1+ e cos E, 


( 6 ) 


A corrective term is added to the derivative of 0 in order to help convergence. 
Thus the change in eccentric anomaly is given by 

M - Mo 


AEo = 


1 + e cos Eq + . Ole cos3 E^ 


(7) 
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The iterative process uses equations (2) and (7) as follows: 

1. The initial mean anomaly is input, 

2» A guess is made for the corresponding eccenti'ic anomaly, 

3. Equation (2) is used to determine the mean anomaly corresponding to Eq. 

4. The change in eccentric anomaly, AE^, is determined from equation (7)» 

5. A new eccentric anomaly is determined from E = E + AE. 

6. Equation (2) is used to obtain a new mean anomaly M. 

7. If (M - Mo) is sufficiently small^the solution has converged. If not, 
steps 4 through 7 are repeated until it is small. 

The true anomaly is calculated from the eccentric anomaly using 


sin f = 


r 



sin E 


and 

cos f = 


r 


cos E “ e 


( 8 ) 


The solution of Kepler’s equation for h 3 rperbolic orbits is essentially the same except 
that equation (2) is replaced by equation (4) and equation (7) is replaced by 


AF = - 


M - Mq 
1 + e cosh Fq 


( 9 ) 


The true anomaly is calculated from the auxiliary variable, F, using the inverse 
tangent 


tan f - 


\e^ - 1 sinh F 


cos F - e 


( 10 ) 
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SUBROUTINE TUBEl 


Available from NASA Goddard Space Flight Center. 
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SUBROUTINE TWELVE 


Calling Sequence: CALL TWELVE (T) 


Purpose: This subroutine integrates a set of simultaneous 

differential equations using a twelfth-order 
predictor-corrector type method. 


Common Blocks Required: CONST, CNTRL, INPUT, INTVAR, PERT 

Subroutines Required: DVMAG, EQNS, RKSEVN 


Input / Output 


I/O 

SYMBOLIC 

NAME 

DIMENSION 

COMMON 

BLOCK 

DEFINITION 

I 

H 

1 


Compute interval 

I 

JC 

1 


Central planet number 

I 

KDIS 

1 


Discontinuity flag 

I 

METH 

1 


Trajectory propagation 
indicator 

I 

RATES 

6 

INTVAR(8) 

Derivatives of the 
dependent variables 

I/O 

T 

1 

CALLING 

OPERAND 

Initial time on input and time 
on end of step or return 

I 

TOL 

1 


Corrector convergence 
tolerance 

mil 

X 

1 

BSSfHRI 

Independent variable 

I/O 

Y 

6 

IBBS8H 

Dependent variables 
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Theory; 


A set of simultaneous differential equations are numerically integrated over the 
time step, H. The scheme employed is a predictor-cori'ector scheme of summed 
ordinate form. Two sets of predictor and corrector equations are contained in 
this routine. When second derivatives of the quantities to be integrated are 
available, a Stdrmer predictor and a Cowell corrector are used. An Adams- 
Bashforth predictor and an Adams-Moulton corrector are employed when only 
the first derivatives are available. A predictor-corrector numerical integration 
scheme determines the state at the end of the step as follows; 


1. The predictor equation is used to extrapolate for the state at 
the end of the step (T H) using the back derivatives (or second 
derivatives) at times T, T-H, T-2H, etc. 

2. The derivatives are determined at time T+H using the state 
determined in 1. 

3. The corrector equation is used to determine the state at T + H 
using the back values of the derivatives at T, T-H, T-2H, etc, 
and the derivative at T + H from 2 , 


4, The state obtained from the corrector equation is compared to 
the predictor state. If the difference is less than TOL, the 
solution is converged, 

5. If the solution has not converged, the derivative is determined 
using the corrector state at T+H and flow is transferred to 
Step 3. A total of 3 iterations are allowed. 


The predictor equations are 


= h" 

K+l 


n 


10 

1=1 


Stbrmer 


( 1 ) 
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Adam s - Bashf or th 


where O' anda are constants described in Table I* 
i 1 

and and are the first and second sums defined by 
k k 




. I, 


\+i \ \+i 


or if first derivatives only are available 




The Cowell and Adams -Moulton corrector equations used are. 


2 n 




J- V 

= lx 'L p. y,,_. 


Cowell 


Adam s -Moulton 


where 0 and 0 are constants described in Table I 
i 1 

The table of back derivatives is established using a seventh-order, ten-cycle 
Runge-Kutta integration scheme when the discontinuity flag is set to 1, This 
flag is set on the first step, or at engine ignition or burnout times. The initial 
first and second sums are obtained from the corrector equation as follows. 


«9 = 


10 

i: 

i=X 
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( 3 ) 


h h 


w * .. 

? ^11-i 

1=1 


So = ^ ^io 


“s + °f? + ^s 

ho % h 


If the first derivative is used^the sum is obtained from 


®9 h 


10 


^11-i 

1=1 


'«10 = '«9 " So 


Only the first sum is needed. 


Description: 

Logic to numerically integrate either first or second derivative equations is 
contained in the routine. The METH flag is tested to determine which set of 
equations to use, A series of flags are internally set according to the value of 
METH. These flags are used to determine the size of DO LOOPS and values of 
subscripts. The purpose of the flags are 


FLAG 

1st 

Deriv; 

2nd 

Deriv, 

NK 

6 

3 

NO 

0 

3 

IN 

2 

1 

IS 

1 

2 


DESCRIPTION 


Number of quantities integrated 

Used to pick out the first derivatives 
when integrating second derivative 
equations. 

Subscript to identify the integration 
coefficients. 

Subscript to identify the first or second 


sum 



KDIS is tested to determine if it is necessary to proceed into the start-up logic. 

This logic is used to set up the back values of the derivatives in the XDD array. 

The values are obtained by integrating the set of equations with the seventh-order 
Runge-Kutta scheme. The compute interval is halved and the integration 
accomplished with RKSEVN. The derivatives at the end of every second step are 
loaded into the XDD array. After the start-up integration, the first and second 
stuns are initialized using equations (3) . 

Next, the predicted value is obtained from equation (1), Subroutine EQNS is used 
to get the derivatives of the function using the predicted state. 

The corrector equation is employed to obtain the corrected value and the test for 
convergence is made. The integration is complete if convergence is obtained. 

If not, the derivation is obtained with the corrected state and the corrector equation 
employed again. Three iterations are allowed. 

The derivative array, XDD, and the sums, S, are updated after convergence is 
achieved. 

Note: This subroutine must be used with a constant, fixed step compute interval 
as there are no provisions for modifying the back value table. 
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SUBROUTINE TWELVE 



"Uall EQNS to obtaiI^ 
.derivative at T+H . 


Get corrected value, Y , using 

K+l 

eauation (2) 


K+l K+L 


>TOL 


No. of ^ 
iterations 


p c 
= Y 

K+l K+l 


<TOL 



update XDD and 
S arrays 


T = T+H 


RETURN 
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TABLE I 


INTERPOLATION COEFFICIENTS 


Stormer Predictor 

a 

.709333000140291806 
- 2,94977592767957351 
7.56536563552188551 
- 12.9585332742103575 
15.3441157607824274 
- 12.6715074479918229 
7.19372036335578001 
- 2.68438193943402276 
. 594237726972101971 
0592405641233766233 


Adams -Bashforth 
Predictor 

Ot* 

3.4519884004562823 

- 13. 8168372652617444 

35.4336533489658489 

- 60.8353967251883918 

72.1837392401194484 

- 59 . 7076813 146344396 

33.9395391414141414 

- 12 . 6774970438512105 

2.80868181442400192 

-.280189596443936721 


Cowell Corrector 

0 

.0592405641233766233 

.116927358906525573 

-.283950542127625460 

.456997940716690716 

-. 518014808301266634 

,415493601691513357 

-.230988982082732082 

.0848526685505852171 

-. 0185565538820747153 

.00183208573833573833 


Adams -Moulton 
Corrector 

jS* 

.280189596443936721 

.650092436016915182 

- 1. 20830542528459194 

1,81090177569344235 

- 1,99558147196168029 

1,57596093624739458 

-.867866061407728073 

.316787568141734808 

-.0689652038740580406 

. 00678584998463470685 
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SUBROUTINE TWOPIT 


Calling Sequence: 
Purpose: 


Common Blocks Required: 
Subroutines Reqmred: 


CALL TWOPIT(ELM, DUT) 

Tills subroutine is used in conjunction with 
TRIM 2 to determine the minimum two- 
impulse, plane-change post-injection trim 
maneuver. 

CONST 

TRIM2 


Input/Output 


! - - : - □ 

I/O 

SYIMBOUC 

NAIVIE 

PROGRAM 

DIMENSION 

COMMON 

BLOCK 

DEFINITION 

o 

DVT 

1 

Calling Argument 

Total velocity requirement 

I 

ELM 

6 


P re -trim orbit 

■ 

PI 

1 

EISRRIIIIIi^ 



Description: 

This subroutine is used in conjunction with TRIM2 to determine the optimum place 
on the initial orbit to initiate the two-impulse plane-change maneuver. Subroutine 
TRIM2 determines the optimum maneuver between two orbits. However, the 
position on the initial orbit must be specified. This subroutine uses a half-interval 
search to find the position on the initial orbit which results in the minimum trim 
requirements* 

The search is accomplished by stepping the true anomaly around the initial orbit* 

On each step, subroutine TRIM 2 is called to determine the velocity requirement* 
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As TO^OPIT steps along the true anomaly, the true anomalies on the tw^o prevdous 
steps and their corresponding velocity requirements are saved in the OS and DVS 
arraj^s. The DVS array and the current velocity, DVT, is used to determine if 
a minimum velocity requirement has been passed. If a minimupi is not passed 
the logic continues to step true anomaly. The subroutine goes into its half- 
interval search phase when the minimum criterion is satisfied. The LPASS 
flag is non-zero when in the half-interval phase . 

It is known that the minimum occurs between the current true anomaly and the 
true anomaly stored in OS(l) when the half-interval search phase is begun, see 



> 


TRUE ANOMALY 

The true anomaly interval is halved and added onto the value in OS(l). Then* 
the velocity requirement at this point is determined ( in the figure) ^ If the 
velocity at @ is less than OS{2), the minimum must occur between OS(l) and 
OS (2), If this condition is true, the interval is halved again and the process 
repeated between the points OS(l) and @ , If the velocity at is greater 
than OS (2), the minimum lies between^ and 0. The velocity requirement 
is then determined at @ , If the velocity at (2) is less than DVS (2), the 
minimum must occur between OS (2) and <A, Then, 


OS(l) = OS (2) 

OS(2) = 0 
DVS(l) = DVS (2) 
DVS(2) = DV{0) 
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and flow transfers back to the beginning of the half-interval search. If the 
velocity at 2 is greater than DVS(2), the minimum occurs between @ and 0 . 
For this case 

os ( 1 ) = 0 

OS (2) = OS (2) 

DVS(l) = DV(0) 

OS (2) = DVS(2) 

The flow returns to the beginning of the search. 

The search is terminated when the interval in true anomaly has been halved 
enough times to cause it to become less than a stopping value. Logic is in- 
cluded to search the entire orbit for minimums. This is required because there 
are many local minimums. The subroutine terminates when the final true 
anomaly is more than 2 tt greater than the initial value. Prior to termination, 
TRIM2 is called with the value of true anomaly corresponding to the absolute 
minimxmi and the input flag set to obtain components of the trim along with 
its magnitude. 
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SUBROUTINE TWOPIT 
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SUBROUTINE UPDATE 


Calling Sequence: CALL UPDATE 

I^rpose: This subroutine sets up the array of back 

derivatives used for interpolation in subroutine 
INTERP. 

Common Blocks Used: INPUT, INTER, INTVAR, STATE 

Subroutines Used: None 


Input / Output 


I/O 

: SYMBOLIC 
NAME 

o 

ACL 

I 

INT 

0 

POS 



DEFINITION 

Array of back derivatives of the 

integration variables 

Counter used to indicate the 

current value in arrays 

Array of back values of the 
integration variables 




Current derivatives of the 
integration variables 


Current time 


Times of the back values 


Current integration variables 


Description: 

This subroutine sets up arrays which contain the back values of the integration variables, 
derivatives of the integration variables and times at which the back values are stored in 
the arrays. The INT flag is used as an indicator to determine which back value is current. 
The back value arrays can hold up to ten back values. Only five of these back values are 
used. The longer table decreases the number of times components in the table must be 
moved. If INT is larger than 10, the last five back values of the table are set in the first 
five slots and INT reset to 5. If INT is zero, the back values arrays are restored to zero. 
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SUBROUTINE VIEW 


Calling Sequence: 


CALL VIEW (X,.Y,J,A) 


Purpose: 


To calculate the lighting characteristics 
of a planet as seen by the spacecraft. 


Common Blocks Required: CONST 


Subroutines Required: None 


Inputs/ Outputs 


I/O 

SYMBOLIC 

NAME 

DIMENSION 

COMMON 

BLOCK 

DESCRIPTION 

o 

A 

1 

CALLING 

ARGUMENT 

Percent of planet lighted 

I 

J 

1 

CALLING 

ARGUMENT 

Planet number 

I 

RE 

12 

CONST(l7) 

Equatorial radius of the planets 

I 

X 

3 

CALLING 

ARGUMENT 

Vector from spacecraft to the 
planet. 

I 

Y 

3 

CALLING 

ARGUMENT 

Vector from Sun to planet. 


Theory: 

Let 6 be the s/c -planet- sun- angle 

X, y, z system centered at the planet with 

X toward the s/c, z normal to the s/oplanet-sun plane, and y in the plane 

x%y', z' system same as x,y, z, except rotated about z an angle^such that 
x^ is toward the Sun. 

Then the equation for the terminator circle formed on the planet by the Sun is described 
as 
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2 


(1) 


where 


t2 ^ ,2 

y' + z' = r 


= -X 


r = r cos a 

s e 

X = r sin a. 

s e 



and r is the planet^s radius 
e 



y 


The rotation from the x,y, z system to x',y’, z' is obt^ned from 


X’ 


r 


cos^ sin0 0 

-sin0 COS0 0 

0 0 1 


Equation (1) written in the s/c system becomes 
x cos^ +ysin^ = -x 

s 

2 2 2 

(~x sin 0 + y cos 0 ) + z = r 

s 

The s/c also sees a circle on the planet described by 

2 2 2 
y + z ~ r 

c , 

X = X 


( 2 ) 


(3) 


where 
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K“ 1 

X = r sin Q 
c e 

; 

r = r cos ^ 


c e 


a , -1 r 
p - sin e 


The terminator ellipse will intersect the viewing circle where the plane x = 

intersects the ellipse, or 

X cos ^ + y sin 0 = -x 
c s 

and 

2 2 2 

(-X sin ^ + y cos 0 ) + z = r 

C / g 

thus the intersection points are 

= -X - X cos^ 

1 s c 
sin 0 

\2 = 


y’ = -X sin 0 + I ~x -x cos^l cos ^ 
c c sc 


L sin ^ J 

. 2 ^ 2 
-X sm 0 - X cos ~ X cos 0 
c s ^ c 


-X - X cos 
c s 


sin 0 


The sim ellipse can be rewritten as 


“X + y sin^ 

X = 3 

cos^ 


~x + y sin 0\ . ^ ^ 

s ; j sin ^ + y cos 0 

cos 0 j 


2 2 
+ z = r 

s 


2 2 ^ 2 

-X sin ^ + y sin 0 + v cos 0 . 2 

s + z 

cos 0 
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A 


z 



2 

(y “ dz 



+ X sin 6 -V- 
s 1 


dz 


cos 6 

— ^ 

-f 2 2 2 . -1 z 

z \ r - z + r sin — 

+ z(x^ sin ^ -y- ) 

z 

s s r 

s 

s 1 


( 7 ) 


The area of the rest of the circle (the crossed-hatched area) is determined from 



+ 


2 -1 
r sm 
c 


li 

r 

c 


(S) 
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Description: 

The areas determined in equations (7) and (8) are determined in a straightforward 
manner. The initial vectors are input via the argument list while the planet's ra- 
dius is in CONST common. The area determined by the sum of equations (7) and 
(8) is divided by the total area to determine the percent lighted. If the spacecraft- 
planet-Sun angle is greater than 90 degrees, the percent calculated is the darkened 
area. Thus, the percent is subtracted from 100 to determine the lighted area. 
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SUBROUTINE VISIB 


Calling Sequence: CALL VISIB (TIME, XIN, JC, KEL) 

Purpose: VISIB computes tracking station visibility* 

Common Blocks Required: CONST, INPUT, OBSIT, PLNET 
Subroutines Required: DOT, DVMAG, MVTRN, M50EPM 


Input / Output 


I/O 

SYMBOLIC [ 
NAME ! 

DIMENSION 1 

COMMON 1 
BLOCK ! 

DEFINITION 

I 

TIME 

1 

Call List 

Time from anchor epoch ( sec) 

I 

XIN 

6 i 

Call List 

Spacecraft’s position vector(EE50, km) 

I 

JC 

i 

1 1 

i 

! 

Call List 

Central body of XIN 

o i 

KEL 

10 

1 -deg 

Call List '■ Visibility or elevation array “Ttf 

I 

RTD 

j I Radians -to -degrees 

1 1 CONST(l) 1 conversion factor 

I 

1 

{ 

RAD ! 12 

CONST(17) 

Planetary or lunar radii (km) 

I 

DJO 

1 

1 INPUT{46) 

Julian date of anchor epoch (days) 

I 

OBSL 

10 


Tracker longitude array(deg) 

I 

XOBS 

1 10,3 

OBSIT(21) 

1 

i Tracker radius vectors (EPM, km) 

I 

XP 

6,12 

PLNET(l) 

Celestial body states at TIME relative 
to JC (km, km/sec) 


Method: 

VISIB is called both for visibility at midcourse time and for visibility at retro ignition. In 

either case, the spacecraft’s position, X, is transformed into Earth's equator and prime 

meridian coordinates where the trackers’ positions, R^, reside. The slant range vector, 

S = X-R , is used to compute the elevation angle, El. 
t 

o 

O ”1 , s*]^ 

El = 90^ - cos ( ^ 

s r. 
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The KEL element corresponding to El is the integer part of 


10 

if El is positive and zero otherwise. Thus, if the elevation is negative at the I-th 
tracker, KEL (I) = Oo If elevation is between 0® and 10^, KEL (I) = 1, if it is 
between 10° and 20°, KEL (I) =2, etc. 


If the central body is not the Earth, the spacecraft’s position is first translated to be 
Earth-centered before computing the slant range vector. In addition, occultation by 
the central body is checked. If the central body indeed occults the spacecraft from 
the I-th tracker, KEL (I) = O^even if the elevation is positive. The criterion for 
occultation is as follows. Let R be the spacecraft’s position relative to JC and r 
be the physical radius of JC* Then if 


m 


R ■ S ^ s 


./I 2 

^r - r 
' m 


the spacecraft is occulted. Otherwise it is not. If the spacecraft is occulted while 
the state is Earth-centered (way out past the Moon)^it would not be detected because 
the test would not be made. 
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FUNCTION VNORM 


Calling Sequence: CALL VNORM (X, Y) 

Purpose: This function determines the magnitude of a 

vector and a unit vector in the same direction 
as the input vector. 

Common Blocks Required: None 

Subroutines Required: None 


Input / Output 


I/O 

SYMBOLIC 1 

NAME ! DIMENSION 

COMMON 1 

BLOCK 1 DEFINITION 

I 

X 

3 

CALLING 

OPERAND 

Input vector 

o 

Y 

3 

CALLING 

OPERAND 

Unit vector along X 

o 

VNORM 

1 

FUNCTION 

NAME 

Absolute value of X 


Description: 

The absolute value of the input vector, X, is determined from 



where X. , i=l, 3, are the components of X. The components of the unit vector Y are 
determined from 

Y. = X. /R i=^l,3 

1 1 
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